DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


| SE555555575255 
zs 
2522225225555 
fi 
| ,Seseessses. 
B e 


S8S8S8S88S 


VVYVVVYVUUUYUY 
WV Lt 


Cen oo, 
~~“ —— 
SS Og Od Og Og Os Ong Od Ong Ong Og Ong OG 
SS OS 8 ne Od Od Od Od Od Ot Od OG OE 


ee 
aa 
a4 
=) 
as 
at 
~~) 
=) 
a 
ae 


LLLLLLLLL 
LLLLLLLLL 


**F ILE**1D**LEXICON 


Page 


= LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro V04-00 


~o 
— 
a e 
a < 
w w o 
HD a a 
a 4 t=) _ 
—O a 
eacz « _- 
wee So oO nn 
wo One 2 
a ow - On —_ Oo 
Wu Zz wom w za w OZ 
ar -— 2 ”" Nae o we 
[vv] cc ew oO waw So N= 
- - - Zz w Oo~r- w wv <r 
w ZX nca™ “ 4 WK mn 
ss om [rwyreyry) a oO z wus met z ow 
wn zaen ss _ -_— z wOvo ciel 3 
ae ote wood > 7) =ss — ” Ar>rew a |. oe) 
w eo == oa - > We « _ om wes 
ee +3 $44 -—-<w Bim mns <= — wow Zt MUI 
wa v7A.2ue—- &- [vey Veyyy) IT be wo aa O (=) 22 
we wee “ow 2 VwuwuU a <«<« Coal — — oat 4 
nee — uw ¥ (VO De] —28 rey — } oO ve _ 
ve wel & & ou a ww> > rZZeMe-mMwn =O ww —w wZzoO 
aeaww eat te ee ee 4g gtr) = 2 weto- =e “oro 
wo a8 ©.) <a i- 2 rere empret tf —- wwe eM FZ <—_— - 
—- wae ee wee SPOvNVuw caxwa vu OW ww -a 
4jwdtet ROY OFe- can = = WOMW=MUUWYIr2O OvuNr> 
> fate ew E-r +t -—wekeee-2ra ~ Sune ower row 
<«<a- —. MVZVIOZ NN www Zr br? ~ 3 we we ww 
VYeEarO— & Sue 7-4 4 tebe b +4 “ SaaS = Lay vo = 
“io 03 8€5-060.22252<444M4a0 8 a= “os tet Fo 
ow ary ee en ee ee ed) s = SF“s Sar ver 
-_ 23 as anno ae ere ~~” "= -u ore 2>w 
eww ww SOGe edu 20 > ww HooLr br 4 Fa} ~ ~ a s [vy rey ryyry) 
Hee we Sixes - a a53u">s> ~ >>>> 
mm 238 ) x4 et Thee aaa Gusta S Sus S83u ee =] ans r+ FF 3 
a=, hg —>w WOmw «eww wc 
WNW Su - JOw JOU wie Owe OU Sovou SSSs co S23 SQwuovvwy 


Ss SS ZOMSOANBGNA 
Beet get tet 
MAMAANAUAO 


Folk seat ane gue cnet aaa cee sae 


tt a a et at et et et et et et et et at et et et et et et et ee ee 


w“ 
ae 
© 
~ 
& 
vu 
ce 
°o 
2 
a 
3 
ae 


EXICON 


teres = LEXICAL FUNCTION PARSE AND execuriON R 19° oee 1388 90:00: 36 ribet Pere CEctn mak 4 Page 


«TITL ICON = LEXICAL FUNCTION PARSE AND EXECUTION ROUTINES 
- IDENT 1 ibes000" 


Win 


SHAH AAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL L Eau UIPRENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ee 
® 
® 
* 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR “ANY OTHER © 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY ®* 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. s 
® 
® 
® 
* 
® 
wv 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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LEXICAL FUNCTION PARSE AND EXECUTION SUPPORT ROUTINES 
D. N. CUTLER 3-FEB-78 


MODIFIED BY: 
v03-034 wysot0s Harold Schultz 15-Aug-1984 
en unable to find lexical function, undo search 

co talooktee in function name before cutputt ing 
onrer message (Clear high bit in first character 
of function name). 

v03-033 PCG0024 Peter Seorge 31-May-1984 
Preclear XAB used by FSFILE to avoid RMS accvio. 

v03-032 HWS0062 Harold Schultz 27-Apr-1984 


In FSPARSE, return requested Penta ion of file spec. 
eyen if parse error. (undo PCG0018). Return null only 
no specific portion of file spec requested. 


v03-031 HwWS0051 Harold Schultz 05-Apr-1984 
When doing an FSPARSE, cleanup any remaining internal 
RMS context. 


v03-030 SOOKE Harold Schultz 02-Apr-1984 
Translate concealed vogieae names when checking if a 
file is “known with FSF 


v03-029 PCG0023 peter George 02-Mar-1984 
Clean up FSSEARCH if input is *”’. 
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v03-028 HwWS0010 Herold Schultz 13-F eb-1984 
Use PRC_V_CARRCNTL instead of contents of prompt string 
to check for presence/absence of CR/LF 
Enable a peconeter st of parse types to be passed to 
FSPARSE. Add new poree fype NO_CONCEAL. 
In FSPARSE, check validity of name of filespec field parameter 
before performing the parse. 


v03-027 PCG0022 Peter George 02-F eb-1984 
Add SYNTAX_ONLY argument to FSPARSE. 
Have F$ID return a null string on all system service errors. 
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V03-026 RASO247 Ron Schaefer 27-Jan-1984 
Fix FSPARSE/FSSEARCH to release RMS context correctly 
when doing the null parse. 
v03-025 PCG0021 Peter George 16-Jan-1984 
Fix broken branch. 
v03-024 PCG0020 Peter George 12-Jan-1984 
Fix broken branch. 
v03-023 PCG0019 Peter George 11-Jan-1984 


Have FSPARSE do a syntax-only parse. 
Add FSEDIT lowercase. 


v03-022 PCG0018 Peter George 28-Nov-1983 
Return a null string no matter what part of an 
non-existent file is requested in FSPARSE. 


v03-021 TMKOOO1 Todd M. Katz 12-0c t-1983 
Translate logical names using LNMSDCL_LOGICAL instead of 
LNMSDEFAULT_SEARCH as the table name. 
| 
| 
| 


v03-020 PCG0017 Peter George 19-Sep-1983 
Fix bug in GETJPI table expansion. 


v03-019 PCG0016 Peter George 12-Sep-1983 
Init NAM block ESS field in FSFILE. 
Use SGETJPI definition of MODE. 


v03-018 PCG0015 Peter George 17-Aug-1983 
Change case of weekday strings. 
Change the way that default protection is retrieved. 
Specify that a NAM block is need for known file opens. 
Have FSUSER return new format UIC's. 
increase accuracy of FSGETJPI error reporting. 
Add FSIDENTIFIER. 


v03-017 PCG0014 Peter George 27-Jul-1983 
Support both FSLOGICAL and FSTRNLNM. 
Add LENGTH item to FSTRNLNM. 


v03-016 PCG0013 Peter George 35-Jun-1983 
Finish adding new arguments to FSCVTIME. 
Use event flags more intelligently. 


MEUM O DONAUE WN 9 ODNAUE WN" OO0Onauw 


UMUEWN—O 


a a a 8 tt 


eDLM!LMMAMM°CLAQQOO ALLL LL LL LC 


L 
Sm Merion, rcrion mae ooo excita 8 ceeeiags SAE ETL ace te., Me 


Use He. FAO erect ive in FORMAT_UIC. 
Add support 


OGICAL 
Add FSCNVC CAPTIVE", **INTERACTIVE''). 
Add second argument to FSVERIFY. 
Add second argument to FSGETSYI. 
Add HEXSTR data Pease 


vO3-011 PCGO0Os r ¢ 30-Mar-1983 
Add FSENV(' KEY state’, SNER FY _PROCEDURE' » VERIFY_IMAGE'*). 
Return standardized protection string everywhere. 
Remove all references to PRC_V_GOTO. 


v03-010 PCG0007 Peter George 03-Mar-1983 
gl ed converse on and editing routines to CONVERT. 
Set d DEL sh are options in FSFILE. 

Add YSFILe C"KNOWN"*) 


Skip “bie nks be tween Lexical function name and aren. 
Make F XLOGICAL F Pogtcac. ate TABLE item to F (0G CAL. 
Add ‘OTHER’ process mode type 
v03-015 4 Coote Peter Geor ° 13-Jun-1983 
bug in Coeevs CAPTiNe 
ae broken bra 
Signal PS error ¥ > NOSUCHNODE in FSGETSYI. 
v03-014 PCG0011 Peter George 01-Jun-1983 
Add second and third ar apie to FSCVTIME. 
Add FSENV(’ ‘OUTPUT RATE’ 
4 v03-013 PCG0010 or George 27-May-1983 
0 Add STDOTIM dat 
4 Make sedi ficatiens to FSGETSYI. 
00 v03-012 PCG0009 Peter George 30-Apr-1983 
100 Add FSXL 
000 
000 
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v03-009 KFHOOO3 Ken Henderson 2 Mar 1983 
Modified JPI_ITEM_CODE macro to conform to new 
OPI TABL E.MAR. 
v03-008 KFHOO02 Henderson 25 Feb 1983 


Chengeg 6& GETSYI snare to SYI_ITEM Zope. to inherit 

17 SYSBOOT parameters and other new GETSY 

 tegncodes. Also changed GETDVI macro fo Ay. Item. CODE 
all new GETDVI item-codes. A added ~ 

the new PSECT DCLSZDATA to contain all fe tables. 


v03-007 pree Peter George 15-Feb-1983 
Cl a ieee. ge code. 
Change FSEDIT COMMEN T to UNCOMMENT 
Change FSENV FILENAME to PROCEDURE. 
Remove FSENV 
Change FSENY MESSAGE "QUALIFIERS to MESSAGE. 


v03-006 KFHOO001 Ken | nderson 10 Feb 1983 
Changed GETJPI macro into at ITEM CODE 
and added call to JPI_GENERATE_TABCE macro. 
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v03-005 rcgoogs Peter George 07-Jan-1983 
Add FSENVIRONMENT. 
v03-004 PCG0004 r George 15-D 


Add AUTHPRI, PA EFitLoce SUPFILLOC Psee tet fields. 
Do not report FSSEARCH errors. 


v03-003 ec600g3 Peter George v-198 
Fold DCLSREMBLANKS and DCL Spcase” ‘ion DCLSEDIT. 


v03-002 et Peter George Or-Oct~1982 
YPE 4 al and F$ tem ENT 
Add DCLSUPCAS Tigh hten up bounds checking in 
Scvei and Feevu 1! 


v03-001 PHLO101 Peter H. ipeer 28-Jun-1982 
Use the new services, SGETDVIW, SGETJPIW, SGETSYIW 
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pater 7 99: 00:2 YOCL SRCILEXTCON-MARS 1 . (3) 
F BIT 3: TRUE IF ARGUMENT OPTIONAL, ELSE REQUIRED 
; BIT 3: UNUSED | 
: IF THE NUMBER OF ARGUMENTS EXCEEDS 4, THEN ALL REMAINING ARGUMENTS 
: : ARE TREATED AS "EITHER STRING OR BINARY’. | 
é 
| 
90000 $$ ARG_V_TYPE = : STARTING POSITION OF TYPE FIELD 
000 0 8 ARG-S-TYPE = + SIZE OF TYPE FIELD 
99900 0 59 ARG-C-BINARY = + BINARY 
0 60 ARG-C“STRING = + STRING 
00 99 6 ARG-C“SYMREF == + REFERENCE TO SYMBOL NAME 
0 ARG-C_ANY = : EITHER STRING OR BINARY 
000000 990 63 ARG-V-OPTIONAL = + TRUE IF ARGUMENT OPTIONAL 
9000000 000 264 ARG-V“KEYWORD = : TRUE IF KEYWORD ARGUMENT 
00000008 909 ge ARG-C-ENTSIZE = : SIZE OF ENTRY (NAME PLUS ARGS) 
000 67 ; | 
9000 68 + MACRO TO GENERATE LEXICAL FUNCTION DEFINITION TABLE 
0000 270 
0000 271 .MACRO FIRST4 NAME 
0000 i *NCHR $278,NAME 
0000 27 $xx$ = 1 
0000 27% .IRPC © SY Y$, NAME 
0000 275 "BYTE “A'SYYS''!SXX$ 
0000 276 $xx$ = 0 
0000 277 .ENDR 
0000 278 “REPT 4-$278 
9000 79 “ASCII ° 
000 280 SENDR 
9000 a1 “ENDM = FIRST4 
0000 BS .MACRO FUNCARG TYPE, PRESENCE=REQUIRED, FORMAT=VALUE 
9000 84 F RETURNS $xxs WITH NIGBLE DESCRIBING ARGUMENT 
0000 286 SLIF ION ZEXTRACT(O,1, TYPE) ,<N>, $XX$ = ARG_C_BINARY 
0000 287 “IIF IDN ZEXTRACT(O,1,TYPE) .<S>, $XX$ = ARG-C~STRING 
0000 288 “LIF IDN ZEXTRACT(O.1,TYPE) .<R>, $XX$ = ARG-C~SYMREF 
0000 289 “LIF IDN SEXTRACT(O.1,TYPE) .<A>, $XX$ = ARG~C "ANY 
0000 290 “IF LT = $XX$ 
000 4 -ERROR ;INVALID ARGUMENT TYPE. (STRING, NUMERIC, REFERENCE OR ANY) 
09 38 “LIF IDN <PRESENCE><OPTIONAL>, %XX$ = $XX$ + <1@ARG_V_OPTIONAL> 
94 “LIF IDN <FORMAT><KEYWORD>, $X%$ = SXX$ + <1@ARG_V_RETWORD> 
90 95 “ENDM = FUNCARG 
900 3 .MACRO FUNCT NAME,ARGTYPES, FLAGS 
0 0 298 FIRST4 ZEXTRACT(O,4.NAME) 
0 99 NARGS = 0 
0 0 .IRP  $22$,<ARGTYPES> 
1 NARGS = NARGS + 1 
0 : .ENDR 
“IF IDN <FLAGS><VARIABLE> 
vA NARGS = MAX_ARGS 
5 SENDC | 
0 6 SARGSS = 0 
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it SBITS = 
; . IRP YY$,<ARGTYPES> 
0 FUNCARG $SYY 

00 10 SARGSS = SARGSS + <SXX$ @ SBITS> 

00 14 SBITS = SBITS + 4 

444 \¢ ‘he $B1T$-24, .ERROR ;TOO MANY EXPLICTLY DEFINED ARGUMENTS 
0000 14 «LONG NARGS + <SARGSS @ 3> 
0000 15 -ENDM = FUNCT 


~ 


} 
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17; 
19 3 LEXICAL FUNCTION DEFINITION TABLE 
0000 1 .PSECT DCLSZDATA,BYTE,RD,NOWRT | 
09 4 LXFUNTABLE : 
4 FUNCT CVSINTEGER, <N. N. $2 : CONVER T SIGNED INTEGER | 
0 5 FUNCT CVUINTEGER, $> CONVERT UNSIGNED INTEGER 
1 : FUNCT  CVTIME, “cf "SPT IONAL> - LpOMvent TO COMPARABLE TIME STRING | 
1 <$, OPTIONAL, KEYWO 
1 8 <S SOPTIONAL ;KEYUORD>S | 
1 FUNCT DIRECTORY SDEFAULT DIRECTORY STRING 
0 0 FUNCT EDIT, <S, ‘EDIT A STRING 
0 1 <s; ; REQUIRED. KEYWORD>> 
99 é FUNCT ELEMENT, <N,S,$> FIND THE SPECIFIED ELEMENT 
0 FUNCT ENVIRONMENT,  <<&, REQUIRED. KEYWORD>> :GET DCL CONTEXT INFO 
00 4 FUNCT EXTRACT, <N.N. S> sEXTRACT SUBSTRING FROM STRING 
040 5 FUNCT FAO, <S. ANY, ANY, = iFM SERVICE 
0040 336 ANY, ANG ,ANY>, VARIAB 
004 7 FUNCT FILE_ATTRIBUTES,<S,- eet FILE ATTRIBUTES 
004 8 <$ REQUIRED ,KEYWORD> 
05 9 FUNCT  GETDVI, <S, GE TDVI SYSTEM SERVICE 
0050 340 <S. ; REQUIRED ,KEYWORD>> 
0058 341 FUNCT  GETJPI, <S,- GET IPI SYSTEM SERVICE 
0058 ae <S REQUIRED KEYWORD>> 
0060 34 FUNCT GETSYI, <<§ REQUIRED ,KEYWORD>,- ;GETSYI SYSTEM SERVICE | 
0060 344 <$. GPT IONAL ,ETWOR D>> 
0068 345 FUNCT IDENTIFIER, <ANY ANSLATE IDENTIFIER 
9068 46 <$ “REQUIRED ,KEYWORD>> 
070 347 FUNCT INTEGER, s CONVERT EXPRESSION 0, INTEGER 
0078 348 FUNCT LENGTH, oy :STRING LENGTH IN BINA 
0080 349 FUNCT LOCATE: <$,$> 3F IND OFFSET TO SUBSTRE NG 
0088 350 FUNCT LOGICAL, <$> *LOGICAL NAME TRANSLATION 
0090 351 FUNCT MESSAGE , <N> ET MESSAGE STRIN 
0098 3 FUNCT MODE SKEYWORD DESCRIBING TYPE OF JOB 
00AO 3-35 FUNCT PARSE, <- SPARSE A FILESPEC 
00A0 = 354 : PRIMARY FILESPEC 
Q0A0 55 <S,OPTIONAL>,- : DEFAULT FILESPEC 
OA0 36 <S;OPTIONAL>.- ; RELATED (STICKY) FILESPEC 
00A 5 <S; OPTIONAL ,KEYWORD>,-; FILESPEC FIELD DESIRED 
OOA9 58 <s OPTIONAL ,KEYWORD>>; TYPE OF PARSE 
OA 59 FUNCT PID, 3GET NEXT PROCESS ID STRING 
0B 60 FUNCT PRIVILEGE, mm REQUIRED .KEYWORD>> sTRUE IF PRIVS ARE SET/CLEAR 
61 FUNCT PROCESS , 7PROCESS NAME STRING | 
0c 6¢ FUNCT SEARCH, <S,<N,OPTIONA :GET NEXT WILDCARD FILESPEC | 
OC 5 FUNCT SETPRV, cS “REQUIRED ,KEYWORD>> SSETPRV SYSTEM SERVICE 
9D 64 FUNCT STRING, : CONVERT EXPRESSION TO STRING | 
D 65 FUNCT TIME Y STRING 
E 66 FUNCT TRNLNM, ° CAL NAME TRANSLATION 
E 6 <$,O0PTIONAL>,- y E 
E 8 <N.OPTIO - ; ANSLATION NUMBER | 
E $ S$, OPTIONAL ,KEYWORD>,- sACee ss MODE 
E 0 <S OPTIONAL, KEYWORD> ,~ SATTRIBUTE 
E 71 <S OPTIONAL .KEYWORD>> eM 
E es FUNCT TYPE <REF> YPE Of SYMBOL 
F 7 FUNCT USER tule STRING | 
| 
| 
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FUNCT VERIFY, 


¥§ 


? 
7 LXFUNTABLEN=.=LXFUNTABLE 


¢ BIN = 0 
; HEX = @ 
= 
5 PRY = g 
§ BiT = 4 
HEXSTR = 5 
STOTIM = 6 


4 00:00:3 AX/VMS Macro v04-00 
7 99:00:36 YOCL SRCILEXI CON MARS 1 
<<N,OPTIONAL>,= ; VERIFY MODE IN BINARY 
<N,OPTIONAL>> 


AND 
SOPTIONALLY CHANGE VERIFY MODE 


LENGTH OF LEXICAL FUNCTION TABLE 


ty 8 
? ; DEFINE THE DTYPES THAT LEXICON USES (SUBSET OF ALL POSSIBLE DTYPES) 


91 ; MACRO TO DEFINE VALID $GETJPI ITEMS WHICH MAY BE USED IN FSGETUPI 


9 

94 -MACRO JPI_ITEM_CODE  ®BASE,-- 
95 NAME ,=- 
96 SOURCE ,- 
97 DTYPE,- 
98 BITPOS,- 
99 BITSIZ,- 
400 OUTLEN,- 
491 STRUCT 

40 -WORD JPI$_'"NAME 

404 

405 $Xx$ = BIN 

40 ~LIF IDN <DTYPE><DECNUM>, 

0 LIF IDN <DTYPE><PADSTR>, 

408 -LIF ION <DTYPE><CNTSTR>, 

409 ~LIF IDN <DTYPE><HEXNUM>, 

410 LIF IDN <DTYPE><PRVMSK>, 

411 eLIF IDN <DTYPE><STDUIC>, 

a6 LIF IDN <DTYPE><STDTIM>, 

41 LIF IDN <DTYPE><STRDSC>, 

414 LIF ION <DTYPE><BITVEC>, 

415 LIF IDN <DTYPE><BITVAL>, 

218 LIF IDN <DTYPE><PRTMSK>, 

41 LIF IDN <DTYPE><ACPTYP>, 

2i3 LIF IDN <DTYPE><HEXSTR>, 

420 -BYTE $XXS_ 

421 eASCIC “'NAME" 

422 -ENOM = JPI_ITEM_CODE 


; THIS MACRO IS CALLED BY THE COMMONLY DEFINED MACRO: JPI_GENERATE_TABLE 


of EXESGETJPI internal tables 
of the item-code 

of the data 

data type and ysage 

of the ‘bitval’ bit 

of the ‘bitval’ bit 

of the data } 

structure containing the data 


STR 


me 
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; DEFINE VALID $ ITEMS WHICH MAY BE USED IN FSGETJPI 


FRRAAAAA EAE EAE EA AAEAAAAAAARAAEAAREAAAEREEEEAARAEEEE 


aq 


ETJPI_TABLE: 
; Each element of GETJPI_TABLE is: 


: WORD JPIS. "NAME 
; :BYTE DTYPE 
; sASCIC "NAME" 


oo 
& Pe SS SS SS Ss SS YS SS YS YY I YY 
NOOO 


— 
PRR RELL RRR R ERE E REP PPPPPPPPPPPE PEP PEES 
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: 4 ° ($e oe ce me me oe et we ow St eS ew we ow oe ww 
0 4 
¢ ? JPI_GENERATE_TABLE 
00000000 843 -LONG 0O 
46 ; 
47 ; MACRO TO DEFINE VALID S$GETSYI ITEMS WHICH MAY BE USED IN FSGETSYI 
2 3; THIS MACRO IS CALLED BY THE COMMONLY DEFINED MACRO: SYI_GENERATE_TABLE 
50 ° «MACRO SYI_ITEM_CODE ease «= 3; of EXESGETSYI internal tables 
5 AME 3 of the item-code 
g SOURCE ,- : of the data 
5 DTYPE,- ; data type and usage 
5 BITPOS,- : of FLD data items 
5 BITSIZ.- 3 ps FLD dete itene 
: OUTLEN 3; of the returned data 
; «WORD SYIS$_"NAME 
6 $XX$ = BIN 
461 ; LIF IDN <DTYPE><DECNUM>, $XX$=BIN 
462 ; LIF IDN <DTYPE><PADSTR>, SXXS$=STR 
463 ; LIF IDN <DTYPE><CNTSTR>, SXXS=STR 
464 ; LIF IDN <DTYPE><HEXNUM>, SXXS=HEX 
465 ; LIF IDN <DTYPE><PRVMSK>, SXXS=PRV 
466 ; LIF ION <DTYPE><STDUIC>, $XXS$=BIN 
rh 3 LIF IDN <DTYPE><STDTIM>, SXXS=STR 
468 ; LIF ION <DTYPE><STRDSC>, SXXS=STR 
469 ; LIF ION <DTYPE><BITVEC>, $XXS$=BIN 
4 9 3 LIF IDN <DTYPE><BITVAL>, $XX$=BIT 
ore 3 LIF ION <DTYPE><HEXSTR>, $XXS=HEXSTR 
4735; 
474 ; The above e Papping is ident icel to GETJPI, but the GETSYI code can't 
475 3 yet handl PES other than HEX, BIN, STR, BIT, and HEXSTR 
$78 : 3; so the fol Lowing table is used in the meantime until everything is done. 
478 * 
138 LIF IDN <DTYPE><DECNUM>, $XX$=BIN 
480 LIF ION <DTYPE><PADSTR>, SXXS=STR 
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6 7 | 
a “urren rowcion ce mo execbe w geeige MOE Wee reat, ee I, 


| 
1 LIF IDN <DTYPE><CNTSTR>, XX$=STR 
§ oLIF ION <DTYPE><HEXNUM>, XXS=HEX 
LIF ION <DTYPE><PRVMSK>, $XXS$=BIN 
4 LIF ION <DOTYPE><STDOUIC>, XX$= 
5 LIF IDN <DTYPE><STOTIM>, SXXS=STDTIM 
§ LIF IDN <DTYPE><STRDSC>, Xx$= 
LIF IDN <DTYPE><BITVEC>, $XX$=BIN 
3 LIF IDN <DTYPE><BITVAL>, $XxX$=BIT 
i LIF IDN <DTYPE><HEXSTR>, SXXS=HEXSTR 
91 -BYTE $XxS 
35 ASCIC “'NA 
9 -ENDM = SYI_ITEM_CODE 
38 
38 WITTIIITITITIII TTT iL LitiLi tit iii iTiii iii TTT i tiie 
"1 38 3; DEFINE VALID SGETSYI ITEMS WHICH MAY BE USED IN FSGETSYI 


° 
FARRAH SEAR A EEA AAAAAEAAEAAARAAAAAAAAEAARAAAAAEEKEERAEREAEEE 
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| 
GETSYI_TABLE: | 
; Each element of GETSYI_TABLE is: | 
| 
| 
| 


; .WORD  SYIS_ "NAME; 
; IBYTE TYP 
: TASCIC "NAME =: 
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GOooooooooooooono 


Seeeeeeee 
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SYI1_GENERATE_ TABLE 
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04 
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2x 
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PAAAAAAAAAAAAAAAAAAAAAAAAEY 
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OO0000 
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4 :00:3 
at at 99:00: 76 
.NLIST CND 
PARAMETER ADDRESS=EXESGL_DEFFLAGS ,~ 
T=1,° 
Ax=] ,~ 
MIN= 
NAME =6U UGRE 
BITSEXE V BuGREBOOT, ° 
TYPE=<DYNAMIC,SYS>,- 
Unt feSontean 
OUTLEN = 4 
SY1_ITEM_CODE 
ebugR REBOO 
<EXESGL OOEFELAGS>, ° 
BITVAL,= 
<EXESV_BUGREBOOT>, ~ 
1 
-WORD SYI$_BUGREBOOT 
$XX$ = BIN 
-LIF I0N <BITVAL><DECNUM>, $XX$=BIN 
-LIF ION <BITVAL><PADSTR>, $XX$=STR 
-LIF IDN <BITVAL><CNTSTR>, S$XX$=STR 
-1IF IDN <BITVAL><HEXNUM>, SXXS=HEX 
-LIF IDN <BITVAL><PRYMSK>, $XX$=PRV 
-IIF IDN <BITVAL><STDUIC>, $XX$=BIN 
SIIF IDN <BITVAL><STDTIM>, $XX$=STR 
-1IF IDN <BITVAL><STRDSC>, $XX$S=STR 
-1IF IDN <BITVAL><BITVEC>, $XXS$=BIN 
-1IF IDN <BITVAL><BITVAL>, $XX$=BIT 
sLIF ION <BITVAL><HEXSTR>, S$XXS=HEXSTR 


The above ma 
yet handle D 


-BYTE 
»ASCIC 


rf 


ing is saons tee GETJPI 


PEs other tha 


SXXS 
“BUGREBOOT"’ 


AX/VMS Macro 


v04- 


DCL.SRCILEXICON. 


0 
MA 


0 
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31 


but the GETSYI code can't 
str, BIT S 


so the following table is used in the meantime until everything is done. 
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FUNCTION PARS 
rameters 


DAA AAT AAA BB BB BBE EAA APRN ta at at tat 
DDD. DDD. MAF UMITMOODONANAEUMIBMODWUOME LILO DOS MON UNOOOD WU 


OO NOW 


: PRODU 


STATE_T 


: MACRO 


cm 
tum EXECUTION MERSIN RRHE WBEEC RR Aa 


-LONG 0 
CE A TABLE OF ASCIC NAMES DESCRIBING EACH OF THE PROCESS STATES 


-MACRO SDEFINI NAME,P1,P2 
MACRO SDEFEND NAME,P1,P2 
;MACRO SEQu SYMBOL . VALUE 

TE(< >, SYMBOL) + 

NGTH (SYMBOL )=s 

SASCIC /ZEXTRACT(S,L, SYMBOL) / 
-BLKB -<L+1> 

[ENDM © SEQU 


ABLE: 
eASCIC ‘ILLEGAL’ 3; FOR ZERO CASE 
SSTATEDEF ; TABLE OF PROCESS STATE NAMES 
-MDELETE SDEF INI ,SDEFEND,SEQU 
TO DEFINE VALID DATA ITEMS WHICH MAY BE USED IN FSFILE_ATTRIBUTES 
a FILITEM NAME ,BLOCK,FIELD,SIZE.B1TNUM, TYPE=BINARY 
= 
LIF ION <BLOCK><FAB>, $xx$=0 
LIF IDN <BLOCK><NAM>, $XxXS$=1 
LIF IDN <BLOCK><XABALL>, ene 
LIF ION <BLOCK><XABDAT>, $XXx$= 
LIF ION <BLOCK><XABFHC>, SXXS=4 
LIF IDN <BLOCK><XABPRO>, $XXS$=5 
LIF ION seared $Xx$=6 
BYTE $xXx 3; RMS BLOCK ID 
$xx$ = 0 
LIF NB <f 1GLO> SENS = ‘FIELD’ 
aueae Pe ; OFFSET TO FIELD IN RMS BLOCK 
= 
LIF IDN <SIZE><BIT>, $XX$=1 
LIF ION <SIZE><BYTE>, $XX$=8 
eLIF ION <SIZE><WORD>, gixeeis 
LIF ION <3 1 E> LGNS>, XxX$=3 
BYTE $Xx ; SIZE OF FIELD 
$xx$ = 0 
LIF NB <BITNUM>,SXX$ = ‘BITNUM’ 
-BYTE $XX$ 3; BIT NUMBER 
Sxx$ = 0 
LIF ION <TYPE><BINARY>, sxxsed 
LIF ION <TYPE><DATE>, $XX$= 
LIF IDN <TYPE><ASCIC>, Tt a 
LIF ION <TYPE><FILEID>, $Xx$= 
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FUNCTION PARSE AND EXEC 


icgaar Rareubeire 


= LEXIC 


EE 


| 
| 
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; CONTIGUOUS 


BOOLEAN ;READ CHECK 
sWRITE CHEC 


EAN ;CONTIGUOUS 


CTION BITMASK 
ER 


E BLOCK NUMBER 


BOOLEAN 
BOOLEAN 
ME 


ORD NUMBER 
IZE 
I 
TTR 
MA 
LE C 


QUANTITY 
TENSION QUANTITY 


; FSFILE DEPENDS ON THIS BEI | 
ROL AREA SIZE 


wood Bee e Ee - OF-™ Sut i 
w Vy wIUUYU ess sf aw woe 
Ms me tb et ee 
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Ld 
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eTYPE=RAT 
BI TNUM=F ABSV 
BI TNUM=F ABSV 


: ASCIC NAME OF DATA ITEM 
ety 
ONG 
BI 
aT 
=DAT 
=DAT 
DAT 
R 
LONG, 
=WOR 
=WOR 
=WORD, 
L 
YTE. 
BYT 
R 
EID 


; TYPE OF DATA 


= 
= 
= 
=BYT 
= 
Z 
=B 
=B 
=B 
8 
YP 
YP 
Y 
Y 
I 
I 
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I 
I 
| 
I 
I 
I 
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se22es2anesie, ras 
Sogssgsse9-9995 °° °° 
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VUoUY 
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e 
° 
a 
>, 


<« 
goodsssaddzggdees 


*e6es*es8s @8 8888 & s*e2e* 88 6 
BGMNVYVINZNYV$ COV MMe eee ZOO 

aM JW eae Ze OYWVOOOCO?> “= S5suz 
“4O@OGu FLOSS MVVE BOWE OS [V Faw 


><PROT 
><EOF > 
><BOOL 


TYP 
TYP 
TYP 
TYP 
<TYP 


A 
D 
F 
P 
Ss 
3 DEFINE VALID DATA ITEMS WHICH MAY BE USED IN FSFILE_ATTRIBUTES 
8 
$s 
$ 
DEQ 
FSZ 
N 
$ 
G 
T 
a 
0p 
=FOP 
<FOP 
“FOP 
$0. 
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OM KMN FN DOR. DAO — CIM TN OR. OD WU TNO nm DRAOK— WPM TNOR. COD CURRIN 
Pot Ne emt Nett 4 ms SOOoORARS S3S9SSSS So eee eS 
INDOOODODOODOODOODOOODODODO0000000 


; DEFINE XAB BLOCK ID'S AND LENGTHS 
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rvanmao 
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Ovveou 
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00000000 00000000 
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FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00: AX/VMS Macro V04-00 P 
rameters mi iets 99:09:36 PCL SRCILEXICON-MARS 1 eH 
7 FILITEM FID,NAM.NAMSW_FID,TYPESFILEID FILE ID NUMBER 
FILITER BVI.NAN,NAMST_DVI., TYP ZASCIC DEVICE NAME STRING 
2 ; MACRO TO DEFINE VALID FSPARSE FILESPEC FIELDS 
4 @ 
635 MACRO FILFLD NAME,LENGTH, ADDRESS 
636 SASCIC "NAME 
“BYTE LENGTH sOFFSET TO LENGTH BYTE IN NAM 
8 “BYTE ADDRESS [OFFSET TO ADDRESS LONGWORD IN NAM 
ty , 
eis ; DEFINE VALID FILESPEC FIELDS WHICH MAY BE RETURNED BY FSPARSE 
i e 
645 PARSE_FIELDS: 
646 FILFLD E ,NAMSB_NODE ,NAMSL_NODE 
64 FILFLD DEVICE, NAMSB_DEV,NAMSL DEV 
648 FILFLO DIRECTORY ,NAMSB_OIR,NAMSL_DIR 
4 FILFLD NAME, NAMSG_NAME-NAMSL _ 
650 FILFLD TYPE.NAMS$B~TYPE.NAMSL TYPE 
651 FILFLD VERSION.NARSB_VER,NAMSL_VER 
63¢ BYTE 
654 MACRO PRSTYP NAME, FIELD 
635 SASCIC NAME’ 
36 “BYTE NAMSM_‘FIELD® 
65 ENDM 
658 
659 PARSE_TYPES: 
660 PRSTYP SYNTAX_ONLY,SYNCHK 
661 PRSTYP NO_CONTEAL ,NOCONCEAL 
66¢ .BYTE 0 


664 ; 
665 ; MACRO TO DEFINE VALID SGETDVI ITEMS WHICH MAY BE USED IN FSGETDVI 
$66 3; THIS MACRO IS CALLED BY THE COMMONLY DEFINED MACRO: DVI_GENERATE_TABLE 
008 «MACRO DVI_ITEM_CODE NAME,- : of the item-code 
66 SPECIAL,- ; flag 
? OURCE, : of the data 

7 DTYPE,- 3; data type and usage 
o7¢ BITPOS,- 3: of the ‘bitval’ bit 

7 OUTLEN,=- 3; of the returned data 
674 STRUCT,= 3 structure containing the data 
675 DEVTY 3 flag 

f 

A 3; SPLDEVNAM and EXISTS are special cases 

? If IDN <NAME><SPLDEVNAM> 

; at Sh DVIS_DEVNAM 


o 


—————————_ 


Lt. ? 
EE AER afnctiog MMSE aw ENECDTON eGR OEE EE ST 


1 4 IF IDN <NAME><EXISTS> 
: 5 atthe DVIS_DEVCHAR 
1 ; “WORD DVIS_"NAME 
! 6 8 »ENDC 
} 630 ~ENDC 
1 $36 Sxx$ = 0 
1 9 -LIF ION <DTYPE><DECNUM>, $Xx$=0 
1 694 LIF IDN <DTYPE><PADSTR>, $XX$=1 
1 $32 LIF ION <DTYPE><CNTSTR>, $XX$=1 
1 38 LIF ION <DTYPE><HEX ° $XX$=4 
16 69 “Ht IDN <DTYPE><PRVMSK>, $XX$= 
16 69 LIF ION <DTYPE><STDUIC>, $XX$= 
| $? LIF IDN <DTYPE><STDTIM>, $XX$= 
16 0 LIF ION <DTYPE><STRDSC>, $Xx$=1 
16 701 LIF IDN <DTYPE><BITVEC>, $XX$= 
16 7 § LIF IDN <DTYPE><BITVAL>, $XX$= 
16 7 LIF IDN <DTYPE><PRTIMSK>, $XX$= 
16 704 LIF IDN <DTYPE><ACPTYP>, sxxsee 
1 rp LIF IDN <DTYPE><HEXSTR>, $XX$= 
19 44 -BYTE $XX$ 
16 709 IF IDN <NAME><EXISTS> 
16 710 -BYTE DEVSV_EXISTS 
168 711 olFF 
168 ar “BYTE 0 
Te EO ae 
168 715 ASCIC ‘NAME’ 
1983 at -ENDM = DVI_ITEM_CODE 

FFFFFFFF 1683 718 DEVSV_EXISTS = -1 
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18 9: jeeeeeeereeeeesseecencececenanenenesesssssesensensnentess 
19 § $ : DEFINE VALID SGETDVI ITEMS WHICH MAY BE USED IN FSGETDVI 
1 725 jdeeeneeeeeeenerenceseeeeeeeneneneeneeeenecensenseeeneeess 
ig , 5 , 
1683 728 GETDVI_TABLE: 
16 4 o: Each element of GETDVI_TABLE is: 
1 7 ” J Cre eooeeeeoecoecocccess 3 
16 7 § 3 ore OVIS "NAME $ 
16 734 3; BYTE DTYPE 3 
1683 735 ; BYTE Pash EXISTS ; 
16 7 $ 3 sASCIC 3 
12 eA f Poem eee eeecococecce oo; 
16 ; 739 DVI_GENERATE_TABLE 
163 a4 
+ 4 rs : ; These codes are special to LEXICON, they aren't ‘real’ item-codes 
1E3D 744 B I TEM_CODE SPLDEVNAM, DEVNAM, PADSTR, 0 * ch he a 
1608 oe? DVI-ITEM_CODE EXISTS, * * Deven BITVAL, 6, {, 
00000000 00000000 1€56 3 -QUAD 0 ; END = ZERO LENGTH NAME 
ae 
1E5E 750 : BUILD TABLE OF ACP TYPES 
1E5€ 751; 
ooo00001 IESE | 988 STAERO “ACP. NAME 
1E5E 754 ASSUME DVIsC -ACP_*NAME EQ $XX$ 
1E5E FS “BLKB 8 = <ZLENGTH(NAME)+1> 
SE Bos paldpegeed oe 
1E5E€ 760 ACP_TABLE: 
4C 41 47 45 4C 4C 49 69" eRe 761 eASCIC ‘ILLEGAL’ 
1E66 P66 ACP Flivi 
\ege 7 ACP Filve2 
1€ 764 ACP MTA 
1Ee6 6 ACP ORER 
1EBE 767 ACP) NL 
4C 41 47 45 4C 4C 49 0" 344 768 ASCIC ILLEGAL 
1E9E 990; 
343 77 : MACRO TO DEFINE VALID FSEDIT ITEM NAMES 
1E9E 978 -MACRO EDIT NAME 
1E9E 774 eASCIC “‘NAME*’ 
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) 
MACRO TO DEFINE VALID FSTRNLNM ITEM NAMES 

ata: hOGTEAL NAME, ITEM 

P HORD LNMS_ "ITEM 


“LIF TON, cLTEM><ATTRIBUTES>, oSXX$ = LNMSV_ ‘NAME 


: DEFINE VALID FSTRNLNM ITEM NAMES 
LOGICAL_TABLE: 
LOGICAL 


MAOWON & 


OM MWMNGCCOYr Pr Pr Yr YrYrrrrrYrrYrrr>r>r 
N00 09 Co. 0D 09 C9 C9 C9 C9 CD CD COCD.CD CD 
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VALUE , STRING 


PUPP Ee PEE EE 


MEW SO OONAUE WN @§ O ODNAUNL WN OO OONAULS WI OUOWONAOULS UM 
ee 
re 
oO 


; MACRO TO DEFINE VALID FSTRNLNM ATTRIBUTE TYPES 
MACRO LOGATTR NAME 

ZASCIC | "NAME" 

LIF _IDN. <NAME><CASE_BLIND>,$XX$ = LNMSM_ "NAME 
LONG  $XX$ 
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> DEFINE VALID ACCESS MODES (MUST BE IN PSLSC_XXX ORDER) 
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4C $0 
4¢ : Access TABLE: 
at ACCESS KERNEL 
2 33 ACCESS EXECUTIVE | 
b fe | ASEEEE quegtvlton | 
00 $f 95 «BYTE 6 
O75 8S 
of 4 3 BUILD TABLE OF MESSAGE SEVERITIES | 
7 «MACRO SEVERITY NAME 
14 ° -ASCIC at ” 
072 90 -BLKB 8 = <%LENGTH(NAME) +1> 
Of 303 -ENDM SEVERITY 
072 905 SEVERITY_TABLE: 
07 306 ASSUME STS$K HARMING | EQ 0 
072 90 SEVERITY 
07A 908 ASSUME STS$K “ERROR” eQ 2 
07A 909 VERITY 
O8¢ 910 ASSURE ySTS8k SEVERE EQ 4 
082 911 SEVERITY SEVERE 
OBA aie SEVERITY NONE sPLACE HOLDER FOR NEXT ‘NONE’ 
092—= «91 SEVERITY NONE 
O9A 914 
O9A 915 ; 
om a8 : 3 MACRO TO DEFINE VALID FSCVTIME TYPE NAMES 
00000000 209A 918 $Xx$ = 0 
O9A 919 ~MACRO CVTTYPE NAME 
09A 920 -ASCIC ‘“'NAME"' 
09A 921 -BYTE $XX$ 
0O9A 9 é $XX$S = SXX$ + 1 
09a 9 ~ENDM 
O9A 924 
O9A 309 : 
BBA 4 gi ; DEFINE VALID FSCVTIME TYPE NAMES 
09A 958 CVTIME _TYPES: | 
9A 929 CVTTYPE COMPARISON 
A6 930 CVTTYPE ABSOLUTE 
a 980 3 1 city PE DELIA 
tes 338 | 
das 3 5 ; MACRO TO DEFINE VALID FSCVTIME ITEM NAMES | 
3 $: MACRO CVT IME, NAME ,CSTART, CCOUNT ,ASTART ,ACOUNT ,DSTART ,DCOUNT | 
9 3 TE  CSTART | 
940 BYTE CCOUNT 
941 BYTE 
ae 
94 
944 
945 
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0 ipent TABLE: 
IDENT NAME_TO_NUMBER 
IDENT NUMBER_TO_NAME 
00 YTE 0 


4 


5 
88 ; MACRO TO DEFINE VALID PROCESS MODES 


00000000 SXXS = 0 

-MACRO PRCMODE NAME 
“ASCIC “NAME 

BYTE 


98 ; DEFINE VALID FSIDENTIFIER KEYWORDS 
$XXx$ = SXX$ + 1 
.ENDM 


1D 
1D 
1De 1 
1D2 1 
162 1 
Fo 1 
173 (1 
173 «1 
1F3 3 
1f3 «1 
1f3 «1 
1f3 (1 
1F3 (1 
1f3 «1 
1f3 1 
7s 
8 
IF 1016 ; DEFINE VALID PROCESS MODES (MUST BE IN JPISK_XXX ORDER) 
1F3 101 hove. TABLE: 
1F 101 PRCMODE OTHER 
1FA 1 PRCMODE NETWORK 
203 10 PRCMODE BATCH 
0A 10 ‘ PRCMODE INTERACTIVE 
00 2217 10 
18 1024 
1 19 5 BATC 
48 43 54 41 42 09" 1026 eASCIC BATCH’ :BATCH JOB 
1E 1037 INTERACTIVE: 
45 56 49 54 43 41 52 45 54 4E 49 90° IE 1028 sASCIC ‘INTERACTIVE’ : INTERACTIVE JOB 
A 1088 NETWORK: 
4B 52 4F 57 54 45 4E 90° A 1030 sASCIC "NETWORK' ZNETWORK JOB 
1031 OTHER 
52 45 48 54 4F 00" 1032 sASCIC ‘OTHER’ ZOTHER NON-INTERACTIVE JOB 
1033 
; 18 4; 
5 : LIST MESSAGE FIELDS 
54 58 45 54 4 ; 1 5 TEXT: .ASCIC ‘TEXT’ 
54 41 43 49 46 49 54 4E 45 44 49 9° D 1038 IDENT: .ASCIC ‘IDENTIFICATION’ 
4E 4F 4 49 
OE 223D 
ac 1039 SEVERITY: 
59 54 49 52 45 56 45 53 99° 4¢ 1040 eASCIC “SEVERITY® 
1044 FACILITY: 
59 54 49 4C 49 43 41 46 00" 1042 SASCIC "FACILITY 
a 
4C 4C 41 4F GE 225€ 1045 NOALL: ASCII ‘NOALL' ZKEYWORD FOR CNOJALL PRIVILEGES 
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45 53 4C 41 46 


47 4E 49 52 54 53 go" 

52 45 47 45 54 4E 49 69" 

47 GF GC SF 4C 43 44 246 4D re ts 99" 
4C 41 43 4 


OF 
3A 30 41 4C 4E SF 30" 


Bae ine PARSE AND EXECUTION R 


«ASCIC 
-ASCIC 


eASCIC 


" SASCIC 


: .ASCIC 


-ASCIC 


*FALSE’ 
a TRUE e 


*STRING’ 
* INTEGER’ 
"LNMSDCL_LOGICAL' 


* NLAO:* 


‘AX/VMS Ges ro V04-00 
DCL.SRCIL LEXICON. MAR: 1 


s;BOOLEAN FALSE VALUE 
sBOOLEAN TRUE VALUE 


TSe=1986 8c ae 


sSTRING SYMBOL 


: INTEGER SYMBOL 


DEFAULT LOGICAL NAME TABLE 


re 
mw 
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SoOOSCoOoOSOoOoooooooooooooooooo 


SOoOoooooooooooooooooocoooao 
ooooo 
Oooo: 
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oo 


So 


6 8 
Ton STRING.” 'Co$Eb=19e4 O8:etset EpcLesacheentconcmar:1 = a8" 


RE 
re 
<2 
20 
42 


eh 
: sSBTTL EVALUATE LEXICAL FUNCTION STRING 
; -PSECT DCLSZCODE,BYTE,RD,NOWRT 
1 jeee 
i i 3 DCLSFUNCTION = EVALUATE A LEXICAL FUNCTION STRING 
1063 ; THIS ROUTINE CAN BE CALLED TO EVALUATE A STRING WHICH CONTAINS 
i ¢3 ; A LEXICAL FUNCTION AND ITS ARGUMENTS, AND RETURNS ITS VALUE. 
6 ; INPUTS: 
1 es ; R1/R2 = DESCRIPTOR OF FUNCTION/SYMBOL STRING 
i $9 ; R3/R4 = DESCRIPTOR OF SCRATCH STORAGE 
4 : OUTPUTS: 
1978 : RO = STATUS 
i ; R1/R2 = DESCRIPTOR OF VALUE STRING (NULL IF ERROR) 
1078 : IF DF SUPRESS_CODE sNOBODY CALLS THIS AT THE MOMENT 
1078 DCLSFUNCTION:: 
1079 PUSHR #*M<R3,R4,R5,R6,R7> ZSAVE REGISTERS 
1 80 PUSHL WRK _L_EXPANDPTR(R10) SAVE EXPANSION BUFFER POINTER 
1081 USHL WRK"L~CHARPTR(R10) TSAVE INPUT BUFFER POINTER 
1 8¢ STATUS BUFOVF TASSUME BUFFER OVERFLOW 
1 CMPL [CHECK IF STRING TOO BJG FOR BUFFER 
1084 BGEO :SKIP IT IF ITS TOO LONG 
1085 OVL R4,WRK_L EXPANDPTR(R10) :PUT EXPANSION IN FRONT OF BUFFER 
1 6 MOVAB =2(R4)ER3),RO [CALCULATE ENDING ADDRESS OF BUFFER 
1 SUBL , [SUBTRACT LENGTH OF INPUT STRING 
19 8 MOVL RO.WRK_L_CHARPTR(R10) :SET INPUT CHARACTER POINTER TO STRING 
1089 MOVE R1. (R2T, TCRO) [STORE INPUT STRING ON STACK 
1090 CLRB 3s (R$) + TTERMINATE INPUT STRING WITH EOL CHAR 
1091 BSBW DCLS$GETOKEN [GET FUNCTION NAME STRING 
1098 MOVa = R16 SAND PASS TO DCLSLEXIF 
109 BSBB «DCL SLEXIF SEVALUATE LEXICAL FUNCTION 
1094 90$: POPL WRK_L_CHARPTR(R10) SRESTORE INPUT BUFFER POINTER 
1095 POPL § WRK"L-EXPANDPTR(R10) | RESTORE EXPANSION BUFFER POINTER 
36 POPR #°MZR3,R4,R5,R6,R7> SRESTORE REGISTERS 
1098 
1099 ENDC 


H 
= LEXICAL FUNCTION PARSE AND exectTipN R 16-SEP-1984 00:00:36 VAX/VMS Macro v04-00 Pa 
LEXICAL bunt TION DISPATCHER ae et 9 99:90:36 HCL SRCIE XICON.MAR; 1 - 
, «SBTTL LEXICAL FUNCTION DISPATCHER 
| $ DELSLEXIF = LEXICAL FUNCTION DISPATCH ROUTINE 
105 ; THIS ROUTINE IS CALLED WHEN A STRING SUBSTITUTION IS SPECIFIED AND THE STRING 
! 3 IS CURRENTLY UNDEFINED. 
; INPUTS: 
110 ; Rg = LENGTH OF SYMBOL NAME. 
1: R7 = ADDRESS OF SYMBOL NAME. 
112; R10 = ADDRESS OF COMMAND WORK AREA 
: 3 R11 = ADDRESS OF PROCESS WORK AREA 
: OUTPUTS 
17: THE SYMBOL NAME IS MATCHED WITH THE LEXICAL FUNCTION TABLE. IF NO MATCH 
118 ; OCCURS, THEN A NULL STRING IS RETURNED FOR SUBSTITUTION IN THE ORIGINAL 
119; COMMAND LINE. IF A MATCH OCCURS, THEN THE APPROPRIATE LEXICAL FUNCTION 
| : IS EVALUATED AND THE RESULTANT STRING IS RETURNED. 
122 : R1/R2 = A QUADWORD DESCRIBING THE FUNCTION RESULT 
123; IF Re NONZERO, THEN R1/R2 IS A STRING DESCRIPTOR 
: IF R2 ZERO, THEN R1 IS A BINARY LONGWORD VALUE. 
1 ; INPUT AND EXPANSION POINTERS ARE UPDATED AS APPROPRIATE. 
1 a 
129 DCLSLEXIF:: ZLEXICAL FUNCTION DISPATCH 
13F8 er BB 1 PUSHR #*M<R3,R4,R5,R6,R7,R8,R9,AP> ; SAVE REGISTERS 
5¢ D 1 MOVL  SP,AP [MARK STACK ADDRESS 
56 06 D1 1 CMPL «#6. R6 TSPECIFIED NAME LONGER THAN 6 CHARACTERS? 
1A 1 BGTRU 108 :1F GTRU NO 
6 DO 1 MOVL 6,R6 SREDUCE LENGTH TO 6 CHARACTERS 
87 2446 BF Bl 135 10$:  CMPW #*A/F$/,(R7)+ SPOSSIBLY LEXICAL FUNCTION NAME? 
0D 1 1 BNEQ 60% SIF NEQ NO 
FFE?" 3 1 BSBW © OCLSSETNBLK [CHECK CHARACTER AFTER FUNCTION NAME 
50 28 O91 1 CMPB Os #*A/(/,RO ZPOSSIBLY LEXICAL FUNCTION? 
5 ig 1 BNEQ 60% SIF N 
56 02 ¢ 1 SUBL “ R6 SREDUCE LENGTH OF FUNCTION NAME 
. a 1 BGTR 188 SIF LEQ NOT LEXICAL FUNCTION NAME 
0 7 142 60S CLRQ—s RO SFAILURE, NO SUCH FUNCTION, NULL VALUE 
52 SE 06 1 MOVL PR2 TINDICATE RESULT IS A STRING 
015F 30s 31 1 BRW § EXIT 
ae 70$: STATUS VENAR [SET INVALID FUNCTION NAME STATUS 
1 0s: STATUS ABFNAM 7SET AMBIGUOUS FUNCTION NAME STATUS 
67 80 af 1 $:  BICB #*x80,(R7) [UNDO MATCH OPTIMIZAT 
F4BA CA 77 ‘ 1 MOVAW =(R7),WRK_L_MARKPTR(R10) ;SET STARTING ADDRESS OF FUNCTION NAME 
160A BRW DCLSPARSERR 
152 ; 
! 3 SEARCH LEXICAL FUNCTION NAME TABLE FOR A MATCH 
FFB6" 155 18%:  eSsBw DCLSMOVCHAR sCOPY ( CHARACTER 
67 80 &F 1 BISB #*X80,(R7) [SET FORCE MATCH FLAG 
0100 8F 67) «56 1 MATCHC R6,(R?),#LXFUNTABLEN,LXFUNTABLE ;SEARCH FOR FUNCTION NAME MATCH 
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LEX! = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP=1984 00:00:36 VAX/VMS Macro v06-00 Pa | 
tin S00 LEXICAL FUNCTION DISPATCHER gr Seen 18 4 99:00:36 YOCL SRCILEXTCON ON.MAR; 1 vee 2, 
00000000" EF 
1 $ 1158 BNEQ 70s : BRANCH IF NO MATCH FOUND | 
5 ¢ B 11 DOL CALCULA ATE & BYTES REMAINING INCLUDING SUBSTRI | 
38 1160 DIVL3 aegee g ENTSIZE. E 4R2. R8 = gS CAL COMPLETE TABLE ENTRY NUMBER 
63 A 6 6 ? 11 MATCHC BG (R7J 3$ DUPLICATE mal CH 
cB i 1166 BEQL § t1F EQL DUPLICATE A TCH FOUND | 
9 1164 3 DET : RMINE THE FUNCTION INDEX (R8) AND RETRIEVE THE NUMBER OF ARGUMENTS 
69 1 5 ; THAT THE FUNCTION TAKES AS WELL AS THE ARGUMENT TYPES (NUMERIC OR STRING). 
58 20 58 C3 0069 116 ; SUBL3 RB, #LXEUNTABLEN/ARG_ C_ENTSIZE,R8 ;CALCULATE REAL FUNCTION INDEX 
57 00000004 "EF 48 7 1189 MOVAQ UHFONTABLESGERBS.R R? ;POINT TO ARGUMENT INFORMATION LONGWORD 
57 67 OD 4 1170 MOVL (R7), [SAVE IT IN REGISTER 
7 1126 : PARSE EACH FUNCTION ARGUMENT, STORING EITHER THE STRING DESCRIPTOR OR 
78 1173 : THE NUMERIC VALUE IN THE ARGUMENT DESCRIPTORS. STRINGS ARE SAVED ON 
oF Vee 3; THE STACK Fu” ORDER TO MAKE FUNCTIONS RECURSIVE. 
SE FF7C 9€ 0078 1176 MOVAB -<MAX_ARGS*8+4>(SP),SP ;ALLOCATE ARGUMENT DESCRIPTORS + COUNT 
0080 8F OFF OF 6. 00 2c z 1W99 moves #0, (SP) ,#*XFF , AMAX  angsebeg ESP) SINIT ALL ARGS TO MISSING (=1) 
SC oD 508? 1178 PUSHL ZSAVE STARTING STACK ADDRESS IN -4(AP) 
SC 04 AE i 089 1179 MOVAB ASP) AP ;POINT TO START OF ARGUMENT LIST 
55 3¢ D 8D 1180 MOVL AP, RS ADDRESS OF NEXT DESCRIPTOR tO FILL 
D4 1 1 CLRL =. (R55) + TINITIALIZE # ARGUMENTS SPECIFIED 
FF6B' 30 1 a 20$:  BSBW  DCLSSETNBLK i SKIP LEADING BLANKS AND TABS 
FF68° 30 1184 BSBW DCLSMARK K CURRENT PARSE POSITION 
57 6¢ 31 1185 CMPB  =s- NPARM(AP) ,R7 EANY MORE ARGUMENTS TO PROCESS? 
03 «19 1 6 BLSS 1$ SIF GEQ y S 
0083 31 1 BRW 0$ END OF ARGUMENTS 
56 OO bo 1 : 21$ MOVL § #ARG_C_ANY,R6 ASSUME EITHER BINARY OR STRING 
06 6¢ 91 1 ; CHPE NPARACAP) ,#6 :BEYOND EXPLICITLY DEFINED ARGS? 
56 6C 05 8 1191 ASHL  #2,NPARM(AP) ,R6 SCALCULATE OFFSET TO NIBBLE 
56 g c 1198 ADDL #8.R6 :BIT POSITION OF NIBBLE IN R7 
56 570 «O08:s—siS6sé«CF 119 EXTZV R6,#8,R7,R6 SEXTRACT NIBBLE DESCRIBING ARGUMENT 
1194 [AND NIBBLE DESCRIBING NEXT ARGUMENT 
1195 TAS WELL, FOR END-OF-LIST CHECKS 
1137 : CHECK IF ARGUMENT MISSING 
2c 0550 1 1199 53$: CMPB 0 #*a',' :CHECK IF ARGUMENT NULL 
44 «1 1 BEQL 82 ANCH IF NULL 
29 30 91 1201 CMPB RO wa’)? tCHECK IF ARGUMENT NULL | 
F 13 1 : BEQL 6-28 SBRANCH IF NU 
i 4 > PARSE ARGUMENT EXPRESSION 
02 56 02 0 1206 ° CMPZV #ARG_V_TYPE,#ARG_S_TYPE,R6,#ARG_C_SYMREF ;REFERENCE TO SYMBOL? 
4 1 BEQL 4 ANCH™ 
FF38° 30 1 4 BSBW DCLSEXPRESS [GET VALUE OF EXPRESSION 
26 50—=— «ED ! BLBC ~=_—« RO, 22S SBRANCH IF ERROR DETECTED 
1 i? t VERIFY THAT THE EXPRESSION ARGUMENT WAS THE EXPECTED TYPE (STRING OR BINARY) 
1212 : IF IT WASN'T, THEN CONVERT THE EXPRESSION TO THE PROPER MODE, IF POSSIBLE. 
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MPZV #ARG_V_TYPE,#ARG_S_TYPE,R6,#ARG_C_ANY ;ANY TYPE ALLOWED? 
Ea. 408 ;BRANCH IF $0 

StL. OR ;CHECK IF STRING OR BINARY LONGWORD 
ASSUME ARG_C_BINARY EQ 0 
ASSUME ARGCESTRING EQ 


888 2 SS SS SS SS 
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0D 56 8 BLBS 6 ;BRANCH IF EXPECTED STRING ARGUMENT 
BeQL 408 :OK IF EXPECTED NUMERIC AND GOT IT 
00000090' F 18 JSB D LSCyT_BINARY [CONVERT STRING TO BINARY 
F 50 Fs BLBC R 4° 4 SBRANCH IF ERROR DETECTED 
1 278 BNEQ 40% 30K IF EXPECTED STRING AND GOT IT 
so 51 MOVL R1,RO [SET BINARY VALUE TO CONVERT 
J c . CONV Y VALUE TO DECIMAL STRING 
00000000°EF 16 OC $B DCLSCBTA_DEC CONVERT BINAR € TO DECI T 
E 11 O BRB 40$ SUSE CONVERTED STRING AS ARGUMENT 


ERROR HAS OCCURRED. IF WE ARE IN A COMMENT, JUST STORE 
ARGUMENT OF NULL OR ZERO AND CONTINUE. 


BBS #WRK_V_COMMENT ,WRK_W_FLAGS(R10),24$ ;SKIP IF IN COMMENT 
BRW DCLSPARSERR SOTHERWISE, REPORT THE ERROR 
cura Rie SIF IN COMMENT, CONTINUE WITH A ZERO 


PROCESS AN EMPTY ARGUMENT. IF ALLOWED, -1 WILL APPEAR IN THE QUADWORD 
; TO INDICATE MISSING ARGUMENT. 
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OOF 99D OG 9 I MOP HSMN ONE FS SVCD 
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0 RR Se re ete eat at Bs Set Rr rs Se re Na ae 
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3156 02 €0 58$: BBS #ARG_V_OPTIONAL,R6,43$ ;BRANCH IF OPTIONAL VALUES ALLOWED 
FeEC* 0 BSBW DCL SAOUCHAR [MOVE DELIMITER TO EXPANSION BUFFER 
008 1 298: BRW 95$ SAND REPORT MISSING ARGUMENT 
i : PARSE ARGUMENT TO BE STORED BY REFERENCE RATHER THAN BY VALUE 
FEF6" 30 7 $0$:  BSBW  DCLSGETOKEN :GET ARGUMENT SYMBOL OR LITERAL 
22 6 1 A CMPB ss (RO) AAT [QUOTED STRING? 
F513 p BEQL 29% SIF SO, ERROR - NOT BY REFERENCE 
f : STORE STRING ARGUMENT ON STACK TO PRESERVE IT OVER RECURSION 
52 05 F dos: TSTL R2 sSTRING ARGUMENT? 
MC 1 1 BEQL 42% [IF NOT, JUST STORE LONGWORD 
03 56 «(0 1 : BBC #ARG_V_KEYWORD.R6,41$ :KEYWORD ARGUMENT? 
FEES’ BSBw 6=-_-d OC LSS QUEEZE SEDIT THE KEYWORD LIST 
: ‘-¢€ A 41$: SUBL SALLOCATE SPACE FOR STRING ON STACK 
1 »D MOVL R1.(R5)+ [SAVE STRING LENGTH 
5 : D MOVL  SP.(R5)+ :SAVE (COPIED) STRING ADDRESS 
p PUSHL R5 TSAVE REGISTERS | 
04 AE 62 = 51 MOVC R1,(R2),4(SP) SSAVE ARGUMENT STRING ON STACK 
33 8ED A POPL R? SRESTORE REGISTERS 
1 BRB 45$ | 
65 51 7D F 4 mova —s._-R1,, (RS) :STORE VALUE IN QUADWORD 
5 08 0 43$ ADDL #8.R5 [SKIP TO NEXT ARGUMENT DESCRIPTOR | 
6¢ 4 INCL  NPARMCAP) [INCREMENT # ARGUMENTS FOUND 
FEC6" BSBU DCLSSETNBLK SSKIP TRAILING SPACES 
57 6¢ A 8 CMPB = NPARM(AP) ,R7 [LAST PARAMETER TO PROCESS? 
6 13 D 126 BEQL 508 [IF EQL YES 


50 00038268 oF 


—o 
—o 


$58: MOVL +49 ta ARGREQ,RO pans ARGUMENT REQUIRED STATUS 
1 
1 


1 
i 
1 BRB 
15 00$: STATUS SYMDEL T INVALID yMBOL DELIMITER STATUS 
16 $:  MOVL RK L_CHARPTR(R10) ,WRK_L eat “SET ADDRESS OF NEXT CHARACT 
1 SUBL3 #1, QRR_L_EXPANDPTR(RIOJ, 
18 8 Suk” 
1 
30 

1 


F486 CA F4BE ft 
R10) ZSET ADDRESS OF INVALID D 


F4BA CA r406 § 
LTERARPTR RTO) 3AT “End 0 


TIF NEQ oS 
DECL WRK_L_CHARPTR(R10) ‘BACK UP TO END OF LINE 
110$: B8RW DCLSPRRS SERR : 
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Vin 600 LEX CAL FUNCTION D DISPA ATEWER ere oats 99:00: § Yeu ERCICEXICON, MAR; 1 - 
FEBE’ 136 1 BSBW 36s: OCLSMO QVCHAR NPUT CHARACTER 
50 ; iz 1 , CHPB OB“ A/, itmaILiNe, LORHA 
FFG 1 } 7 3 H BRANCH pT f rn ARGUMENTS 
oe ae Ta acca aaah tremens 
05 56 £9 16F 1 id: BS #4+ARG_V_OPTIONAL ,R6, 558° :OK IF NEXT ARGUMENT IS OPTIONAL 
i BRB 95$ sERROR IF REQUIRED ARGUMENT NOT PRESENT 
FEAB’ 155 1279 50$:  eSBw DCLSMOVCHAR :GET NEXT INPUT CHARACTER 
50 3 158 1 25: Ch #°A/)7,RO ZTRAILING RIGHT PARENTHESIS? 
ig 158 1 BNEQ 1008 SIF NEQ NO 
FEAO’ 13 i BSBW © OCLSMARK [MARK CURRENT PARSE POSITION 
160 1284 : CONSTRUCT A DESCRIPTOR OF SCRATCH BUFFER SPACE AND CALL THE APPROPRIATE 
16 i 5 ; LEXICAL FUNCTION ROUTINE TO OBTAIN THE RESULT STRING. 
53 F486 CA DO 0160 1287 ° MOVL_ WRK_L_EXPANDPTR(R10).R3 ;BUILD DESCRIPTOR OF SCRATCH AREA 
52 F4BE CA F486 CA C3 0165 1 : SuBL3 WRK"L~EXPANDPTR(R10) WRK be CHARPTR(R10) .R2 ;SET UNUSED LENGTH 
ae 160 i BSBB s«é DISPATCH TDISPATCH FUNCTION 
16F 1291 : RI/R2 NOW, ESCRIBE THE FUNCTION RESUL 
16F 1 3 : NONZERO, RI/R2 ARE A atte DESCRIPTOR 
16F 93 3 i 4 ZERO, R1 IS A BINARY LONGWORD VALUE 
16F 1295 : RESULTANT STRING MIGHT NOW RESIDE ON THE STACK (E.G. AN EXTRACT 
16F 1 36 3 OF AN ARGUMENT STORED ON THE STACK). WE MUST COPY IT TO THE EXPANSION 
16F ' 3 : BUFFER BEFORE RETURNING IT TO THE CALLER. 
52 05 I6F 1299 ° TSTL R2 :CHARACTER STRING? 
11 13 0171 1300 BEQL 58$ BRANCH IF NOT 
56 31 00 173 1301 MOVL R1,R RG *SAVE LENGTH OF STRING 
F486 DA é 1 176 1 ; MOVC = R1. (R2) ,@WRK_L -EXPANDPTRERIOS zcopy IT TO UNUSED EXPANSION AREA 
1 56 00 17¢ «1 MOVL RO, yRETURN LENGTH OF RESUL T STRING 
52. F486 CA DO O17F 1304 MOVL RK _EXPANDPTR(R10) ,R2 3AND ADDRESS OF RESULT STRING 
50 01 00 0184 1305 58$:  MOVL ROW SS 
5 C 00 0187 1 06 MOVL Fy, ;REMOVE ALL TEMPORARIES FROM STACK 
138 BF BA A 0 90S: POPR pmcr$: Rs, R5S,R6,R7,R8,R9-AP> ; RESTORE REGISTERS 
ist 13 
F 11 : INVALID SYMBOL DELIMITER 
18F 1 
19% 1 
198 1 
19F 1 
106 1 
1AE 1 
1B2 1 
1B4 1 
188 1 
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ON PARSE AND EXECUTION R 16-SEP-1984 00:00:36 YAX/VM z 
RABLE DATE/TIME STRING © S-SEP=1984 SSi41:41 LDCL’SRCILEXICON-MAR 


DCL.SRCJLEXICON.MAR; 1 
~SBTTL CONVERT TO COMPARABLE DATE/TIME STRING 


3+ 

; FSCVTIME = CONVERT TO COMPARABLE DATE/TIME STRING 
; THIS FUNCTION CONVERTS A STANDARD VMS DATE/TIME STRIN 
; STR THE FORM ‘'YYYY=MM=DD _HH:MM:SS.NN'’, WHICH 


FSCVTIMEC(TIME, ITEM) 


; INPUTS: 
P1(AP) = DESCRIPTOR OF DATE/TIME STRING 
pears = DESCRIPTOR OF TIME T 
PS(AP) = DESCRIPTOR OF ITEM KEYWORD 


R1/R2 = DESCRIPTOR OF REQUESTED DATE/TIME STRING 


Il /:-. / 


FSCVTIME: 
: Build the result buffer descriptor. 


PDI BS Be BS BB BPE PPE PEPE PPP PPE EEE 


; Get the type 


PSOU’IMO ODN SMMVNININ NOP NLS GIVI TTF OOWOOVODODOVOOVOOOOVOOWOOoOOOOoOoONO 
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14 
54 (02 me 


~OG00000 
-P>nuMom 


138A 


Oo 
rx 


RRRRRRRERR RRR PEPE PEEP PEPE PPP PPP PPP of 
~“ 
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oO 
eR a ad nk etd a a ot a a a et ad 8 et ot a 8 et ts tt tt tt de a tt tt o 


#24 ,R3,-(SP) 
4 aT P) 
Ap6se3, (SP) 
10$ 


#2%4 2SP 
BUF OVF 


information. 


R8 
P2(AP) 


CVTIME TYPES,R4 
500 as 
P2(AP) ,aP2+4 (AP) ,#0,R5,1(R4) 


17$ 
| ltl 


3§ 

#2*4,SP 

Py ERROR 
1(R4)CR5),R8 


sBUILD TIME BUFFER DESCRIPTOR 
SAVE ADDR OF SECOND DESCR 


TIME BUFFER LARGE ENOUGH? 
sI1F LEQU YES 

sPESTORE THE STACK 

REPORT BUFFER OVERFLOW 


-— mm 
Tho “VT 


NGTH O 
BRANCH IF END 0 
DOES ITEM MATCH 


BRANCH IF SO 
SKIP TO NEXT TABLE ENTRY 


RESTORE THE STACK 
SREPORT KEYWORD ERROR 
?SET THE TYPE 


2GET LENG 


—— | 
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ON PARSE AND EXECUTION R 16-SEP-19 


LEXI = LEXICAL FUNCTION :00:3 AX/VMS Macro V04-00 Page 33 | 
en S80 CONVERT fo COMPARABLE DATE/TIME STRING at sett 99:00:76 LOCL SRCICEXICON-MARS 1 . (10) | 
99 1489 ; Call LIBSCVT_TIME or LIBSCVT_DTIME to get the time string. 
55 SE pO 0299 1491 208:  mOovL  SP.RS :GET ADDRESS oF pOVEFER DESCR | 
: C 029C 149 CLRO 2s = §P) SALLOC TIME QUADWORD 
53 D4 6(009E «(149 CLRL RB. iSET ADDRESS bP OU NPUT DESCR | 
04 AC D3 AO 1494 TSTL By (AP) SWAS P1 SPECIFIED? | 
0D } A3 1495 BLSS 23$ [NO, THEN SKIP 
51 04 AC 7D OA 1496 MOVQ = PI (AP) ,R1 'GEf INPUT DESCRIPTOR 
FD54" 30 O2A9 149 BSBW = CLS TRIM SUPCASE AND TRIM IT 
06 ac 51 7D OA 1698 MOV = R11, P1 (AP) ;RETURN THE DESCRIPTOR 
03 11 0280 149 BRB 25§ 
04 AC 7C O2B2 1 0 338: CLRQ = P1 (AP) iUSE A NULL INPUT DESCRIPTOR 
53 04 AC 7E OBS 1 $:  MOVAQ P1(AP),R3 [GET INPUT DESCRIPTOR ADDR 
3 DD 0289 1 é PUSHL 5 [PUSH ADDRESS OF DESCRIPTOR TWICE 
DD BB 150 PUSHL R5 ; 
8 a3 F O2BD 1504 PUSHAQ <8 (RS) [PUSH TIME BUFFER ADDR | 
53 pd 02c0 1505 PUSHL R [PUSH INPUT DESCRIPTOR 
02 38 D1 O2c 1306 CMPL RB #2 [1S DELTA TIME REQUESTED? 
1 13 0 ¢ 1307 BEQL © 27$ :YES, THEN BRANCH 
00000000" EF 04 FB 02¢7 1509 CALLS #4 ,LIBSCVT_TIME ;PARSE THE TIME SPECIFICATION 
2450 € 0 CE 1510 BLBS RO, 30$ SBRANCH IF SUCCESS 
SE. 10 (¢€O 0201 1511 ADDL 4#16,SP SRESTORE THE STACK 
0 D4 131g STATUS IVATIME :SET ERROR STATUS 
133A 31 0 DB 1313 BRW P1_ERROR SREPORT TIME SYNTAX ERROR 
00000000°EF 04 FB 0 DE 1515 27$ CALLS #4 JL BSCVT_ DTIME ZPARSE THE TIME SPECIFICATION 
Op 50 €8 O2€5 1516 BLB RO ‘BRANCH IF SUCCESS 
SE CO 0268 1517 ADDL #16 Po RESTORE THE STACK 
6 —B 1518 STATUS IVDTIM [SET ERROR STATUS 
132331 0 F 1319 BRW P1 OERROR SREPORT TIME SYNTAX ERROR 
O2FS 1521 ; 
03t8 13 gi : Get the item information. 
54 000020B8'EF 9E O2FS 1594 80$:  MOVAB  CVTIME ITEMS ,R4 :GET ADDRESS OF ITEM TABLE 
55 64 OA 0 FC (1525 MOVZBL (R4),R5 :GET LENGTH OF ITEM 
54 0146465 99E OoFF 15 6 OVAB. 1(R4SCR5I,R4 [GET ADDRESS OF DATA 
6448 3¢ 0 04 15 MOVZWL (R4)CR8I,-(SP) :GET DEFAU 
14 aC DS 8 1528 TSTL  P3(AP) :WAS AN TEM SPECIFIED? 
3E 19 0308 1529 BLSS  40$ ‘NO, THEN USE DEFA 
54 000020B8'EF 9& 0300 1530 MOVAB CVTIME_ITEMS,R4 :GEf ADDRESS OF ITEM TABLE 
55 64 «GA 0314 1531 35 MOVZBL (R4),R5 :GET LENGTH OF IT 
12. 13 0317 3 ; BEQL 368 [BRANCH IF END OF TABLE 
55 00 188C M4 at 2D 0319 1 CMPCS P3(AP),aP3+4(AP),#0,R5,1(R4)  :DOES ITEM MATCH | 
14 13 1 1534 EOL 375 SBRANCH IF SO | 
54 07 A445 = 9 1535 MOVAB 7(R4)CRSI,R4 ;SKIP TO NEXT TABLE ENTRY | 
69 11 9 15 6 BRB 35$ 
SE 14 CO 1537 36$ ADDL  #20,SP :RESTORE THE STACK | 
: 1 8 STATUS IVKEYU [SET STAT 
126¢ 31 1 BRW P ERROR SREPORT KEYWORD ERROR 
54 01 A44 E 8 1540 37$:  MOVAB. 1(R ERS R4 [GET ADDRESS OF DATA 
6448 3 D 1341 MOVZWL (R4)CRBI, (SP) [SET THE POSITION AND LENGTH 
9 1 41 1 43 BNEQ 40% :1F NONZERO, THEN CONTINUE | 
02 D 43 134 CMPL = RB, #2 [1S DELTA TIME REQUESTED? 

E313 0346 1544 BEQL 40s «-36$ ‘YES, THEN ERROR | 
| 
| 
| 


0 9 
LEXICON = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro v04-00 Page 
rae CONVERT fo COMPARABLE DATE/TIME STRING ~$ee 1382 99:00: 36 YOCL  SRCICEXT CON. MARS 1 . do), 
0081 31 48 is BRW 90$ ZNO, THEN RETURN WEEKDAY 
4B 1547; | 
rt ! rh: ; Return requested information. | 
56 OCA 70 48 1550 408: mova 12 (SP) »R6 ZGET TIME STRING DESCRIPTOR 
58 OD 4F 1551 TSTL OR ‘WAS "COMPARISON SPECIFIED? | 
N sNO, THEN BRANCH 
42. (12 BNEG 60% THE | 
53 1554; 
; HE 3; Convert to ASCII comparable time. | 
56 17 «*~»01 1 2§ CMPL = #23, R6 z1S DAY ONE DIGIT OR TwO? 
5 13 36 1358 BEOQL :BRANCH IF TWO 
77 30 © «(90 1559 MOVE #*A'O',=(R7) s INSERT A ZERO 
6 D6 0358 1560 INCL R S INCREASE TIME LENGTH 
54 00002142"EF 9E 0350 1561 50$:  MOVAB MONTH_TABLE,R4 ‘POINT TO MONTH TABLE 
0 D4 0364 136¢ CLRL = RO ‘START WITH MONTH # | 
84 O03 AZ D1 0366 1563 51S: CMPL (R7), (R4)+ ‘DOES MONTH MATCH? 
moe % 6A 1564 BEQ 2$ ‘BRANCH IF FOUND 
F650 OC OF 6C 1565 AOBLSS #12,R0,51$ SLOOP UNTIL END OF TABLE 
53 59°—Co= 70 1566 52$:  MOVL R9,R3 [POINT TO SECOND DATE/TIME BUFFER 
83 07 A? «DO -0373 1567 MOVL © 7(R7) , (R3)+ MOVE YEAR NUMBER 
83 2D 690 037 1568 MOVE #*A'=5, (R3)4 :MOVE DASH 
83 00002172°EF40 80 037A 1369 MOVW § MONTH_NO TABLECROJ, (R3)+ ‘MOVE MONTH NUMBER 
83 2D 90 0382 1570 MOVB #*A' =", (R3)4 [MOVE DASH 
83 67 BO 0385 1571 MOVW = (R77), (R3) + [MOVE DAY NUMBER 
83 A? 7D 0388 1326 MOVQ =: 11(R7), (R3)+ :MOVE 12 CHARACTERS OF TIME STRING 
83 13 a7 DO 38¢ 157 MOVL 19(R7).(R3)+ : 
57 59 ~*~ 39 1574 MOVL  R9,R7 ‘RESET TIME POINTER 
D DECL R [DECREASE TIME LENGTH 
56 393 1575 6 
b308 1879 
8 32 1378 3; Extract requested field. 
55 6€ 08 08 EF 0 95 1580 60$:  EXTZV #8,#8,(SP),R5 :GET NUMBER OF DELIMS 
54 6€ 9A 039A 1581 MOVZBL (SP),R4 [GET STARTING DELIM # 
0D 13 039D 3 : BEQL 67$ ‘BRANCH IF ZERO 
56 1583 65$: DECL R6 ‘DECR STRING SIZE 
FEA2 CF 04 87 1 3 4 LOCC  (R7)+,#4, TIME_DELIMS [1S CHAR A DELIM? 
F6 A? 1585 BEQL 65$ :NO, THEN SKIP IT 
F3 54 1 6 SOBGTR R4,65$ :COPY UNTIL NO MORE DELIMS 
52. 59 67$: MOVL R.R2 sINIT RESULT DESCR | 
89 87 ‘oo § 70$:  MOVB (R7)+,(R9)+ [COPY A CHARACTER 
4 13 0 INCL RB sINCR THE RESULT LENGTH | 
56 1591 DECL R SDECR STRING SIZE 
08 1 38 BEQL 75$ [DONE IF ZERO 
FES CF 004i 159 LOCC (R7),#4,TIME_DELIMS [1S NEXT CHAR A DELIM? 
F 1594 BEQL 70% :NO, THEN MOVE NEXT CHAR 
EC 55 1595 SOBGTR R5,70$ [COPY UNTIL NO MORE DELIMS | 
51 3 1 36 75$: MOVL  R3-R1 [GET RESULT LENGTH 
SE 14 159 ADDL #26,SP SRESTORE THE STACK 
1 38 RSB SRETURN 
1800 | 
e i 
; Return day of week. ! 
SS) f thecusss dev of cnet | 
j 
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LEXI = LEXICAL FUNCTION PARSE EXECUTION R 16-SEP-1984 00:00:3 AX/VMS Macro V04-00 Pa § | 
re CONVERT +o COMPARABLE D fey nat ti sect ING pate 99:00:36 YL SRCJLEXICON.MAR; 1 ” dd) | 
cc . 
OC AE 04 AE 23¢34600 i 78 56 1888 $0$:  EDIV  #600000000,4(SP),12(SP),RO : GET MINUTES SINCE BASE TIME VALUE | 
10 AE bs D 1604 CLRL —-: 16 (SP) : 
OC AE OC AE 000005A i: DA 1605 EDIV #60*24,12(SP),12(SP),RO : GET DAYS SINCE BASE TIME 
0c AE CO O3E5 1605 ADDL = #2 12(sP) : ADJUST FOR BASE DAY BEING WED. 
b4 £9 16 CLRL P) ; 
50 OC AE OC n° B EC 1608 EDIV 12(SP),12(SP),RO + GET DAY OF WEEK 
52 me , 9 O3F3 1609 MOVAB , KDAY_TABLE,R2- + GET WEEKDAY TABLE ADDR 
C4 O3FA 1610 ULL RO : GET WEEKDAY TABLE OFFSET 
624 3 FD 1611 OVAB {R CROJ R2 : GET ASCIC WEEKDAY 
es 8 A 0401 1618 MOVZBL (R2)+,R : GET WEEKDA 
E £9 404 161 ADDL 20,SP t RESTORE THE STACK 
407 1614 RSB + RETURN 


52 


00000000 ' 9F 
51 82 


RETURN DEFA 
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R 

ORY NAME STRING 4-SEP=19 DCL. SRCIJLEXICON.MAR; 1 
- «SBTTL RETURN DEFAULT DIRECTORY NAME STRING 

FSDIRECTORY = RETURN DEFAULT DIRECTORY NAME STRING 


on 
3S 
ov 
4p 


IRE 


DIRECTORY STRING. 
FSDIRECTORY() 
INPUTS: 
NONE. 
OUTPUTS: 


Ri = LENGTH OF DEFAULT a 


ORY STRING. 
R2 = ADDRESS OF DEFAULT D 


ECT 
RECTORY STRING. 


ea] Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Se Sete 
i 


CONAUES WN O OONAUE WN OOOnO 


WWII NIAAA OROPOPOPINININININ SS OS 


2 8 8 se et nt S$ 
PDAAAAAAAAAAPSAASAAAASASAAS 


SDIRECTORY: RETURN DEFAULT DIRECTORY NG 
MOVAB @#PIOSGT_DDSTRING,R2 GET ADDRESS OF DEFAULT DI 
(R2)+,R1 GET LENGTH OF DEFAULT DIR RY 


MOVZBL 
RSB 


THIS LEXICAL FUNCTION RETURNS THE ADDRESS AND LENGTH OF THE CURRENT DEFAULT 


STRI 
RECTORY STR 
ECTORY STRING 


ING 
N 
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epi A STRING $73 e- 1382 99:00:36 YOCL. SRCILEXICON. MAR; 1 aad dy 

49 ; .SBTTL EDIT A STRING 
at 46 : FSEDIT = EDIT A STRING 
41 44 3 THIS LEXICAL FUNCTION PERFORMS THE EDITS A STRING, AS DIRECTED BY AN 
413 1646 : 
41 1847 ; FSEDIT (STRING, ITEM_LIST) 
41 1848 : INPUTS: 
413 1651 : P1(AP) = DESCRIPTOR OF TEXT STRING 
41 ; P2(AP) = ITEM LIST 
41 16 4 : OUTPUTS 
41 1886 : R1 = LENGTH OF EDITED STRING. 
413 1657 : R2 = ADDRESS OF EDITED STRING. 
“13 1639 * 
13 1660 FSEDIT 
54 (OC ac 7D 0413 1661 mova gn: JR4 :GET DESCRIPTOR OF COMMA SEPARATED LIST 
4 061 166 CLRL [CLEAR THE FLAGS 
52 4 7D 0419 1663 10$ MOva SASSUME NO COMMA IN LIST 
58 0 BF CB O41C 1664 BISL ae6t M_EOL,R8 SASSUME END OF LIS 
6 4 ¢ A 0623 1665 LOCC A’, *,R4,(R5) LOCATE END OF NEXT KEYWO 
13 04 1666 BEQL : F NOT FOUND, USE RONTIRE STRING 
58 90009040 F CA 0429 166 BICL #EDIT_M_EOL,R8 [NOT EN ND OF LIst 
5 2% 3 0430 1668 SUBL3 RO,R47R2 s ISOLATE THE KEYWO 
4 E 0434 166 MOVAB =(RO).R4 :CHOP THE KEYWORD OFF THE LIST 
55° 01 Al «(9E «(0437 1670 MOVAB 1(R1).R5 : 
Be 00001696 "EF 9E 04 1678 208: MOVAB EDIT_TABLE,R6 :GET ADDRESS OF TABLE 
5 9A 0442 1673 30$:  MOVZBL (R6)7R7 [GET LENGTH OF ITEM NAME 
6 13 0445 1674 BEQL 908 ‘BRANCH IF END OF TABLE 
ze é 2 47 1675 mova Re.~(SP) ; SAVE REGISTERS 
00 63 32 20 440 1877 CMPCS Ra: (3) 40, ;DOES ITEM NAME MATCH? 
0D 13 0454 1878 Bea. 50% ‘BRANCH IF ITEM FOUND 
54 BE 2 436 eet mova (SP)*+ RG ZRESTORE REGISTERS 
56 85 nee? 9€ 3? 16 ; MOVAB girorce 1,R6 [SKIP TO NEXT ENTRY IN TABLE 
F 11 6 16 BRB 0$ [LOOP UNT 
4 be D 1684 50$: MOVQ  (SP)+,R4 ZRESTORE REGISTERS 
2 66 1685 MOV <SP)+-R 
58 01 A64 88 69 16 6 BIsB =-:-1¢rr6) R77) ?SET OPTION BIT 
8 06 €E 46 16 BBCC =-: #EDIT_V ie® R8,10$ [PROCESS NEXT KEYWORD IN LIST 
51 ac 7D 0472 16 § 60$:  MOVQ  PIC(AP),RI :GET DESCRIPTOR INPUT STRING 
50 3 7 16 0 MOVL  R8,RO [GET EDITING FLAGS 
FBB4' 5 79 1691 BSBW sé DCL SEDIT SEDIT THE STRING 
1B acs en 
47D 1892 90$: STATUS LyKe vy SUNDEFINED ITEM NAME 
1197 31 0484 1695 BRW P2_ERROR 


JOW,PARSE AND ExECUTION R 1G-SED-198% 90:00:56 YAN/URE Macro vO4-00 | Page 38 
-SBTTL FIND A STRING ELEMENT 

; FSELEMENT - FIND A STRING ELEMENT 

: THIS LEXICAL FUNCTION EXTRACTS A SPECIFIED STRING ELEMENT FROM A STRING. 


FSELEMENT (NUMBER, DELIMITER, STRING) 


Se 
os 


) 
R DELIMITER 


= LENGTH OF EXTRACTED ELEMENT. 
R2 = ADDRESS OF EXTRACTED ELEMENT. 


Fi Se Se Oe Se Se Se Se Se Se Se Se Ge Se Ge Sete 


j 
SELEMENT: 
5304 ac D MOVL P1(AP),R3 :GET ELEMENT NUMBER | 
3 ‘ TSTL «oR :POSITIVE? 
0 19 BLSS 85% ‘NO, THEN ERROR | 
54 Oc AC 7D mova PEC AP) .RA Get DELIMITER STRING 
0 Wat 7D MOVa P3(AP)-RO GET TEXT 
54 01 «OD CMPL se #1, RG 1S IT EXACTLY ONE CHAR? | 
D 12 BNEQ 908 NO 
0 »D INCL RO :SEf INITIAL LENGTH 
1 »D DECL = RV [SET INITIAL POINTER | 
1 »D 108 INCL RV :POINT PAST DELIMITER 
0 D DECL RO : 
52 1 p0 MOVL  R1,R2 SREMEMBER START OF ELEMENT 
61 5 § Loce = (R5),RO, (R1) SLOCATE DELIMITER IN STRING 
7 13 BEQL 80S :TF NOT FOUND, THEN RETURN DELIMITER 
FO 53.—sFS SOBGEQ R3,10$ [LOOP UNTIL WE FIND THE RIGHT ELEMENT 
51 52 ce 70$:  SUBL R2.R1 CALCULATE LENGTH OF ELEMENT 
6 RSB 
53 D 80$: STL R sIF LAST ELEMENT 
7 | BEQL «= 708 :THEN RETURN IT 
51 91 D MOVL = #1, R1 TRETURN DELIMITER | 
2 55 p MOVL  R5.R2 : 
RSB | 
50 00038228 8F 00 85$ MOVL #CLI$_INVRANGE,RO SASSUME RANGE WILL BE INVALID 
114A 31 BRW ERROR ?SIGNAL ERROR | 
50 O000388FA 8F 00 90$ MOVL acLls STRTOOLNG,RO ;DELIMITER 1S MORE THAN ONE CHAR | 
1148 «31 BRW P2_ERROR SSIGNAL ERROR | 


19 | 
= LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00: AX/VMS Macro v04-00 Pa 9 | 
GET DCL NESRAAT SON §-8 at} 99:00: 36 DCL. SRCJLEXICON. MAR: 1 da | 
Ds 1749 »SBTTL GET DCL INFORMATION | 
p $ FSENVIRONMENT = GET DCL INFORMATION | 
D3 1753 : THIS LEXICAL FUNCTION RETRIEVES SPECIFIC INFORMATION ABOUT THE DCL PROCESS 
4b 4 : CONTEXT. | 
p 7 5 : FSENVIRONMENT (ITEM) | 
4D 17 : ; INPUTS: 
4p 1760 ; PI(AP) = DESCRIPTOR OF ITEM | 
4p 1766 : OUTPUTS: 
403 1764: R1 = LENGTH OF REQUESTED INFORMATION 
403 1765 : R2 = ADDRESS OF REQUESTED INFORMATION 
abs pe * | 
D 1768 F SENVIRONMENT: | 
56 00001ED7 "EF 9E 04D 176 MOVAB ENVIRON _TABLE,R6 :GET ADDRESS OF TABLE 
7E 52 «7D 4DA 1770 MOVa = R2, = (SPT SSAVE THE SCRATCH DESCR 
57 9A 04D 1278 10$:  MOVZBL (R6),R7 :GET LENGTH OF ITEM NAME 
12 13 O4€0 177 BEQL 208 [BRANCH IF END OF TABLE 
00 08 aC te A 2D 4E 177% CMPCS B1CAP) ,@P1+4(AP) .#0, = [DOES ITEM NAME MATCH? | 
14 13 04EB 1776 Bea. 4-90 [BRANCH IF ITEM FOUND 
56 02 A647 = o9E ED 177 MOVAB 2(R6)CR7].R6 [SKIP TO NEXT ENTRY IN TABLE 
eo 11 Fe 1778 BRB 10$ [LOOP UNTIL FOUND 
52 8E 7D O4F4 1780 208:  mMOVa (SP)+,R2 ;RESTORE THE SCRATCH DESCR 
F7 1781 STATUS IVKEYW [UNDEFINED ITEM NAME 
1117 31 Fe v7 Q W P1_ERROR 
52 8 7D 1 1784 90$: mova  (SP)+.R ;RESTORE THE SCRATCH DESCR 
4 1785 CASE  1(R6)ER7],TYPE=B,<- [CASE ON ITEM 
4 17 ¢ 1008,- | CONTROL 
4 17 110$.- :NOCONTROL 
1788 g008.- DEFAULT 
4 1789 0$,- [DEPTH 
1790 400$.- [0N_ SEVERITY 
1791 500$.- :PROMPT | 
1798 6008. - :PROMPT_CONTROL 
4 179 $.- SPROTECTION 
4 179% £ $.- [MESSAGE | 
4 1795 $-- :MAX_ DEPTH 
1796 1000$,- 70N_CONTROL_Y 
4 179 1100$.- [PROCEDURE 
4 1798 i $.- SKEYPAD_STATE 
17 1300$.- :VERIF Y“PROCEDURE 
1 1400$;- [VERIFY~IMA 
1 1500$,- CAPTIVE 
180¢ 16008. - : INTERACTIVE | 
4 1 1700$> SOUTPUT_RATE | 
E 1804 
— 1805 ; | 


eee eee |) 


eA HEME LHe tase om execu w vgcapsies See erm ere amge, PH 


GA ioos: MOVZBL pec WLONLEVEL(R11),RO  ;GET SEVERITY NUMBER 
; 0 8A BICB #1,RO- sCLEAR THE CONTROL/Y BIT 
52 000020 ad DE VAL SEVERITY _TABLECRO],R2 ;GET ADDRESS OF ASCIC SEVERITY 
5 8 Be aa (R2)+,R1 sSET DESCRIPTOR OF SEVERITY 


RETURN PROMPT 


S008: MOVZBL PRC fp PROMPTLEMCRT TD At GET LENGTH OF PROMPT STRING 
SUBL #3,R REMOVE LENGTH OF CR/LF/_ 


} ; RETURN CNOJCONTROL INFORMATION 
50 (01 1 joos: MOVL sTEST IF BIT IS SET 
0 1 BRB ‘ 68° SKIP : 
D4 181 1108: CLRL RR TEST IF BIT IS CLEAR 
52 D1 181 $: CMPL 4#3,R2 [1S RETURN BUFFER BIG ENOUGH? 
p b 1 1 BGTRU 1 [BRANCH IF NOT 
6 D0 A 181 mOVL R [COPY ADDRESS OF SCRATCH SPACE 
1 & 1814 CMPZV see V_CTRLT,#1,< SCHECK CTRL/T 
50 a) 40 1815 pac C_OUTOFBAND(R11),RO : 
2 44 1 1g BNEQ g* ‘SKIP IF NOT EQUAL 
83 56 BF 46 181 MOVB #*A/T/,(R3)4 SINSERT T IN STRING 
1 #19 €D 0560 1 18 130$:  CMPZV #PRC v'CTRLY [CHECK CTRL/Y 
50 B 4D 181 PRC C\OUTOFBANDR11).RO 
12 | 1820 BNEQ 1308 [SKIP IF NOT EQUAL 
56 D 1821 CMPL «=e R3L RG SHAVE WE INSERTED ANYTHING YET? 
13 3 é 1 : BEQL «=s«d140$ 'NO, THEN SKIP 
83 2c 1 vB B7A/ «1 «(RB)* TINSERT A COMMA 
83 59 &F 29 3 B 1824 1408: MOVB #*A/¥/.(R3)+ SINSERT Y IN STRING 
51 53 56 OC F 1825 150$:  SUBL3 R6,R3,R1 :GET LENGTH OF RESULT 
5256 0 563 1 $ MOVL R6,R2 [GET ADDRESS OF RESULT 
268 } RSB 3 
567 1 3 190$: STATUS BUFOVE ZSIGNAL BUFFER OVERFLOW ERROR 
10A2.31 36 0 BRW ERROR 
$71 1 $i 
371 18 3: RETURN DEFAULT 
7 52 7D 0571 1835 200$: mova  R2,-(SP) sPUSH SCRATCH AREA DESCRIPTOR 
5 E 574 1 MOVL PUR TR 
FARE" 577 1 BSBW DCLSSHOWDEFINT iGET DEFAULT DIRECTORY SPEC 
SE 57a 1 ADDL #8,SP SRESTORE THE STACK 
FAB0' 370 1 BSBW =: DCLLSTRIM SREMOVE LEADING BLANKS 
1 RSB : 
581 1 
581 1 
5 RETURN DEPTH 
51 5C AB D0 3 1 1865 $00$: MOVL PRC_L_INDEPTH(R11),R1  ;GET COMMAND PROCEDURE DEPTH 
52. 4 O05 5 1 CLRL sR SRETURN IN INTEGER FORM 
05 3 RSB ; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


} 
i 
i RETURN ON_SEVERITY 
: 
q 
Hi 
i 
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= LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 :36 YAX/VMS Macro V04-00 
GET DCL INFORMATION §-§ ets 1 99: 90: i? Yoel. SRCJLEXICON.MAR; 1 
52 00F4 CB 9 A 18¢ MOVAB PRC_G_PROMPT(R11),R2 § ;GET ADDRESS OF PROMPT STRING 
ae ie i 
A 18¢ ? RETURN PROMPT_CONTROL 
51 01 00 A9 1869 600$: MOVL 4#1,R1 ZASSUME cR/LE SPECIFIED 
02 68 AB E AC 18 BBS #PRC_V_CARRCNTL,PRC_W_FLAGS(R11),610$ :SKIP IF SPECIFIED 
ps4 Bi 18 CLRL 1 ZRETURN FALSE OTHERWISE 
11¢¢ «6=—.31—s«058 1 610$: BRW FORMAT_BOOLEAN SRETURN THE VALUE 
B6 1874 ; 
3 1873 : RETURN PROTECTION 
7E ds 058 1899 700$: CLRL <=(SP) ZWHERE TO RETURN PROTECTION 
7E 3 D0 058 1878 MOVL SP, = (SP) NOTE WHERE PROTECTION IS TO BE PUT 
: D4 0588 187 CLRL [DON'T WANT TO SET PROTECTION 
00000000°9F 02 FB O58D 1880 CALLS #2 @#SYSSSETDFPROT 'GET DEFAULT PROTECTION 
54 «BE p 5¢4 (1881 MOVL [COPY PROTECTION TO USEFUL REG 
1 1 3C7 1 : BRW FORMAT PROT :CONVERT INTO ASCII FORM 
CA 1884 : 
sth 1 5 ; RETURN MESSAGE QUALIFIERS 
58 2 9A th 18 ; boos:  movzeL #*a''s""RB 3STORE FIELD DELIMITER 
36 3 po O5¢D 18 8 MOVL : COPY ADDRESS OF SCRATCH SPACE 
83 58 90 30 1889 MOVE RB, (R3)+ SINSERT A LEADING SLASH IN STRING 
52 ze D1 0503 (1891 CMPL #46, R2 s1S SCRATCH BUFFER B1G ENOUGH? 
F 1A 506 189 BGTRU 1 :NO, THEN ERRO 
00000000°GF 9A 508 1893 MOVZBL G*“CTLSGB_MSGMASK,R9 SGEf MESSAGE MASK 
0000 255° EF 9€ OSDF 1895 MOVAB FACILITY,RO :GET ADDRESS OF ASCIC STRING 
0 9A EG 189 MOVZBL (RO)+,R1 [GET LENGTH/ ADDRESS OF STRING 
05 H EO OSE9 189 BBS #3,R9,810$ [1S FACILITY SPECIFIED? 
83 4F4E BF ED 1898 MOVW #*ANO/. (RB) SINSERT NO IN STRING 
6 69 1 ar 1899 810$: MOVC3 RI. CRO)» CR ) [MOVE STRING INTO DESCRIPTOR 
8 8 F 1301 MOVB RB, (R3)+ S INSERT DELIMITER 
0000224C"EF  9€ 3f8 19 : MOVAB SEVERITY, RO :GET ADDRESS OF ASCIC STRING 
1 9 9A 0600 190 MOVZBL (RO)+, [GET LENGTH/ADDRESS OF STRING 
0s 59 EO 06 1904 BBS #2,R9 Boos t1S SEVERITY SPECIFIED? 
83 GFGE BF 1905 MOV a hINGT a s INSERT NO IN STRING 
1 1906 820$: MmOovcs Ri, CR . [MOVE STRING INTO DESCRIPTOR 
8 i 19 MOVE = RB, (. SINSERT DELIMITER 
0000223D"EF 96 061 1309 MOVAB IDENT, RO :GET ADDRESS OF ASCIC STRING 
1 80 9A O61A 1910 MOVZBL (RO)+.R1 [GET LENGTH/ADDRESS OF STRING 
05 59 01 £0 0610 1911 BBS #1,R9,830S [1S SEVERITY SPECIFIED? 
83 4F4E BF 621 191¢ MOVW ss #*A/N .(R3)* Z INSERT NO IN STRING 
6 69 1 526 191 830$: MOVC3 R1,(RO).(R3) [MOVE STRING INTO DESCRIPTOR 
8 A 1 MOVB = RB, (R3) + SINSERT DELIMITER 
0000 238° F 9E 062D 1318 MOVAB TEXT, RO :GET ADDRESS OF ASCIC STRING 
9A 0634 191 MOVZBL (RO)4,R1 [GET LENGTH/ADDRESS OF STRING 
0s 59 £0 1918 BBS #0,R9.840$ t1S TEXT SPECIFIED? 
83 4F4E BF B80 06 191 MOV - #*A/NO/,, (R3) + SINSERT NO IN STRING 


eee 


a - —-+4 


at SEMA BLE Rrnse tm each gees Stam cM See IOSD, PH 


63 60 51 28 9 i 840$: MOVC3 R1,(R0),(R3) ;MOVE STRING INTO DESCRIPTOR | 
51 33 36 C 4 1 SUBL3 R6.R3.RI 3GET LENGTH OF RESULT 
f, b 8 i MOVL ROR :GET ADDRESS OF RESULT 
4c 1 | 
4c 1 $ ; ; 
ac ; RETURN MAX_DEPTH | 
51 00000000'8F DO 064¢ 19 5 $00$: MOVL = #MAX_DEPTH,R1 ;GET MAXIMUM DEPTH OF COMMAND PROCEDURES 
2 b4 19 CLRL = R2 SRETURN AS INTEGER 
5 13 RSB Py | 
656 1933 ; 
? 13 $3 3 RETURN ON_CONTROL_Y 
51 01 D 36 19 § 1000S: Movi ZASSUME HANDLER SPECIFIED | 
0088 cB D 3 19 TSTL orte toncTLy«Rt1) 
g 1 D 19 8 BNEG 10108 3YES, 1 HEN SKIP 
1 ps 65F 19 CLRL RT NO, THEN RETURN FALSE 
W1— 31 61 1940 1010$: BRW FORMAT_BOOLEAN tRETURN THE VALUE 
664 1948 : 
664 1943 + RETURN PROCEDURE 
50 O0BC CB DO 0664 1348 1100S: MOVL  PRC_L_IDFLNK(R11),RO. | ;GET ADDRESS OF IDF BLOCK 
52. 68 AO DO 0669 1946 MOVL §IDF-L“FILENAME(ROS,R2 GET ADDRESS OF ASCIC FILENAME | 
04 1 66D 194 EQL ©: 11108 [SKIP IF NONE 
51 82 9A 6f 1948 MOV ZBL (R2)+,R1 3GET LENGTH/ADDRESS OF FILENAME | 
573 1950 . 
514 1951 1110$: CLRL 1 ;RETURN NO FILENAME PRESENT 
52 SE DO 067 1958 MOVL  SP,R2 S INDICATE NULL STRING 
» Be ae ? 
679 1955 ; 
$79 1956 ; > RETURN KEYPAD_STATE 
52 48 AB 00 0679 1958 12008: MOvL PRC L_CURRKEY (R11), R2  ;:GET ADDRESS OF ASCIC STATE 
51 82 9A 067D 195 MOVZBL (R23+> [GET LENGTH/ADDRESS OF STATE 
05 0 1960 RSB : 
681 1968 : | 
136 ; RETURN VERIFY PROCEDURE 
51 Ds 0681 1965 1300$: CLRL RI ZASSUME NOVERIFY | 
07 «£1 «06 3 1966 BBC #PRC_V_VERI [BRANCH IF NOVERIFY 
02 68 AB 196 PRC_Q_ rlacsinti). 13208 : 
51 B06 8 1968 13108: INCL Tee SET TRUE 
10° 5 A 13208: BRW FORMAT_BOOLEAN [RETURN TRUE/FALSE | 
68D 1399 ; 
2 0 ; RETURN VERIFY_IMAGE | 
1 D6 068 197% 14008: cLRL RI SASSUME NOVERIFY | 
7 €1 O68F 1975 BBC #PRC_V_VERI MAGE *BRANCH IF NOVERIFY 
F5 OOAF CB 591 1976 PRC_B_FLAGS2(2 1),13208 : 


UNCT 


o 
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ION SEP=1984 25:41: DCL. SRCJLEXICON.MAR; 1 


vb4-000 Get DcL INFOR 


flo Ro BRB 13108 sSET TRUE 
9 
30 ; RETURN CAPTIVE 
50 00000000" GF 9& 0697 3 1500$: MOVAB G“CTLSAG _CLIDATA,RO GET ADDRESS OF PPD 
D4 069 CLRL sR ASSUME NOT CAPTIVE 
E1 4 BBC SPPDSV CAPTIVE - {BRANCH IF NOT CAPTIVE ACCOUNT 
A2 1985 pep sy FLAGS(ROS ,1320$ 
A 2 : BRB iSET TRUE 
7 : 
, : e t RETURN INTERACTIVE 
? 1991 1600S: cLRL RI sASSUME NOT INTERACTIVE 
9 936 BBS #PRC OV ;BRANCH IF NOT INTERACTIVE 
AB 199 ah FlacstRit), 1320$ 
U 
934 BRB TSios- ‘SET TRUE 
99 
399 : RETURN OUTPUT_RATE 
998 
99 
000 
a0 
098 
005 
906 
00 
008 
009 
010 
011 


PORORORORORORORORORONUR) @ 2 


7E 52 7D 680 17008: mova R2,-(SP) ;SET UP RETURN DESCR 
06 €1 068 BBC #PRC v_M ;BRANCH IF INTERACTIVE 
1B 68 AB 0685 C0 VeLAgstRt1), 1710$ 
50 SE 00 0688 'GET ADDR OF OUTPUT DESCR 
0688 SASCTIM. 3 F lures, - SCONVERT BINARY DELTA TIME TO ASCII 
688 TAApRe PRC z) “FLUSHTIME(RI1) 
0450 €9 O6CC BLBC ~=—_—«aRO,, 1710 3BR IF ERROR IN TIME 
51 BE 7D O6CF MOV  (SP)+,R1 :GET TH T 
5 be RSB : RETURN DELTA TIME 
51 8& 7D 06D 1710$: MOVQ (SP)+,R1 [RETURN NULL 
1 04 606 CLRL sR : 
05 06D RSB : 


i 
—— | 
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FROM STRING ~SEE= 138s B9:O0: 28 YOK/ ts acre eee age 8) 


«SBTTL EXTRACT SUBSTRING FROM STRING 
FSEXTRACT = EXTRACT SUBSTRING FROM STRING 


; THIS LEXICAL FUNCTION EXTRACTS A SUBSTRING FROM AN ARGUMENT STRING AND RETURNS 
ITS DESCRIPTOR. 


FSEXTRACT(POSITION, SIZE, STRING) 


UNCT 
STRI 
13 
13 § : 
1? § ; 
i§ : 
y 3 
gi : INPUTS 
4 P1(AP) = STARTING CHARACTER NUMBER (BASED AT ZERO) 
$3 P2(AP) = NUMBER OF CHARACTERS 
$i P3(AP) = DESCRIPTOR OF TEXT STRING. 
0 
0 b 
ba * 
034 
035 
036 
037 
038 
039 
040 
041 
43 
04 
044 
t 


; OUTPUTS: 


Ri = LENGTH OF EXTRACTED SUBSTRING. 
R2 = ADDRESS OF EXTRACTED SUBSTRING. 


h-hh 4-4 ~4~4-4-4- 4-444-444-4414) 


FSEXTRACT: 
CL sASSUME NULL SUBSTRING 
3(AP) 3 STARTING oo BEYOND END OF STRING 


UY 
1 {GET UMBER OF og TO EXTRACT 


> 

o 

So 

cc 

wl 
va v000—" 0D 
Wwo-——nNo-"— 


RI CIENT 
1 E CALCULATE ACTUAL LENGTH OF SUBSTRING 
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iP Di i Dd i ll Pe I ee Pd 
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PARSE AND EXECUTION R 16-SEP- AX/ - 
oS MND SMECUTIGM BH 'TAepo1s8e Secktsal Eeek tac tekalcee wks? bee 


~SBTTL FAO SYSTEM SERVICE 
FSFAO = FORMATTED ASCII OUTPUT 
THIS LEXICAL FUNCTION INVOKES THE SFAO SYSTEM SERVICE WITH 
bi Tuer STRINGS OR LONGWORDS AS ARGUMENTS, DEPENDING ON THE 
TYPE OF THE ARGUMENT. 


FSFAOCCTRSTR,ARG1,ARG2,...) 


o 


INPUTS: 
NPARM(AP) = NUMBER OF ARGUMENTS SPECIFIED 
P1I(AP) = FIRST ARGUMENT 
P2(AP) = SECOND ARGUMENT 
ETC. 
OUTPUTS 


R1/R2 = RESULTANT STRING FROM $FAO 


Sete Ge Se Se Ge Se Ge Ge Se Ge Ge Ge Ge Sete Ge Sete Se 


FSFAO: 
MOV ~~ R2, = (SP) ZADDRESS OF RESULT BUFFER DESCRIPTOR 
MOVL. _— SP, R2 TADDRESS OF BUFFER DESCRIPTOR 
SUBL3 #1,NPARM(AP) ,RO ;GET NUMBER OF FAQ ARGUMENTS 
MOVAQ P2(AP)CROJ,RI :START AT LAST ARGUMENT + 1 
10S: TSTL  =4(R1) SBINARY LONGWORD OR STRING DESCRIPTOR? 
BNEQ 15$ ‘BRANCH IF 
SUBL  #8,R1 [SKIP TO NEXT ARGUMENT 
PUSHL crf) [PUSH LONGWORD BINARY VALUE 
15$:  PUSHAQ =(R1) :PUSH ADDRESS OF ADESCRIPTOR 
20$: SOBGTR RO,10$ ‘LOOP THRU ALL ARGUMENTS 
PUSHL SP sO DDRESS OF Si RAMET LIST 
PUSHL Re SADDRESS OF BUFFER DESCRIPTOR 
PUSHL R SADDRESS OF WORD TO RECEIVE LENGTH 
PUSHAQ P1(AP) TADDRESS OF STRING DESCRIPTOR 
CALLS #4,G*SYSSFAOL S INVOKE FAO SERVIC 
BLEC =—_- RO. 90 ‘BRANCH IF ERROR DETECTED 
MOY. = R2.SP :POP FAO ARGUMENTS OFF STACK 
POPR  #*M<R1,R2> TRETRIEVE DESCRIPTOR OF RESULT STRING 
30$: RSB 
90$:  ADDL3 #8,R2,SP CLEAN 


N STACK 
BRW P1_ERROR [REPORT ERROR AND DISPLAY P1 


sg 
} 
SS Se ee 


¢ 10 
= LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro v04-00 Page 
GET FILE ATTRIBUTES mi eats rie ere me Trae Pate tA eet ee . tt 
? ¢ 95 : .SBTTL GET FILE ATTRIBUTES 
f ; 99 ; FSFILE_ATTRIBUTES = GET FILE INFORMATION 
73¢ 39 : THIS LEXICAL FUNCTION RETURNS A SPECIFIED ATTRIBUTE FOR A FILE 
, : 4: : BY USING THE RMS OPEN SYSTEM SERVICE TO OBTAIN THE INFORMATION. 
, c p : FSFILE_ATTRIBUTES(FILESPEC, ITEM) 
f ¢ : : INPUTS: 
73C 2104 : P1(AP) = DESCRIPTOR OF FILE SPECIFICATION 
, : 105 ; P2(AP) = DESCRIPTOR OF RMS ITEM NAME 
, c 1 : OUTPUTS: 
73C 21 $ ; R1/R2 = DESCRIPTOR OF RESULTANT DATA 
Bose 5179 | 
oF ¢ 118 FSFILE 
3 52 7D O73C 211 MOVQ = R2, = (SP) :PUSH DESCRIPTOR OF SCRATCH SPACE 
59 5E pO O73F 2114 MOVL  SP.R9 SSAVE ADDRESS OF DESCRIPTOR 
00001513'EF  9€ 0742 115 MOVAB FILE _TABLE,R7 :GET ADDRESS OF TABLE 
58 O05 A7 9A 074 116 10$: MOVZBL 5(R7J),R8 :GET LENGTH OF ITEM NAME 
12. 13 0740 211 BEQL 15$ ‘BRANCH IF END OF TABLE 
10 BC ar ac 2D Ora 118 CMPCS P2(AP) ,aP2+4 (AP) #0, ;DOES ITEM NAME MATCH? 
11. 13 0758 2120 ea. 208 BRANCH IF ITEM FOUND 
57 06 ara 9 073A 1 ROVAB 6(R7) (R81, »R7 :SKIP To NEXT ENTRY IN TABLE 
0761 21 ¢ 15$: STATUS IVKEYU S UNDEF INED ITEM NAME 
OEB3 31 0768 2124 BRW P2_ ERR 
SE BO AE 9€ 0768 2125 20$:  MOVAB PrReSCe OBLNCSP), SP TALLOCATE FAB ON STACK 
56 SE 00 O76F 2126 MOVL  SP,R6~ 'GET ADDRESS OF FAB 
00 6€ 00 2¢ 0772 2127 MOVCS #0,(SP),#0 #FABSC seks (R6) 'ZERO STORAGE 
77A 2128 ASSUME FABSB_BLN £0 6 B10+1 
5003 8F 80 rok ; MOVW ar ABS BIDecFABSC, BLNa8>,- z INITIALIZE FAB 
50 67 9A O77F 2131 MOVZBL CR?) R 3GET BLOCK INDEX 
01 50 1 782 1 é CMPL sO, #f OR NAM BLOCK? 
47 —so1F i: 1 BLssu_50$ ‘BRANCH IF FAB ONLY IS NEEDED 
25 13 0787 2134 BEQL 408 ‘BRANCH IF NAM BLOCK IS ALSO NEEDED 
5 OONSO5HEFEP Fh STAY Slug MRAZ AR argon Sue BLBEE TBehene™ 
et § 196 1 $ SUBL 1,$P ° SALLOCATE SPACE FOR XAB ON STACK 
32 BD 799 21 : PUSH Re SSAVE R 
04 AE 51 00 6€ 09 E65 09 139 move H (SP), #0,R1,4(SP) s ZERO) STORAGE 
7A5 2141 ASSUME XABSB ou EQ XABSB_ cop+1 
6E i BO O7A 148 MOV Re. XABS$B_COD(S sSTORE XAB BLOCK ID/LENGTH 
24 Ab 00 7A 143 ROVL P-FABSL~ “EAB RG) ;POINT TO XAB BLOCK 
FEAI ce 9E O7AE 2145 40S: BOVAB -NAMSC_BLN-NAMSC MAXRSS (SP), SP ALLOCATE SPACE FOR NAM BLOCK 
6E 0060 8F 6E 2c 783 146 MOVES #0, (SPI. 0,8 NAMSE BLN Ns (SP [ZERO STORAGE 
6002 8F 80 0788 148 MOV pt te BIDS <uansc “arNae>, - sINITIALIZE NAM 
6E 7BF 214 NAMSB_BID(SP) ; 


D 10 | 
= LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 AX/VMS Macro v04-00 Page 47 | 
GET FILE ATTRIBUTES g-sé P1984 4 98: 9: i foe SRCJLEXICON.MAR; 1 . a7 
OA AE FF BF 90 700 1 MOVB #NANSC MAXRSS ,NAMSB_ESS (SP) gSET SIZE OF EXPANDED BUFFER 
C NY; 60 AE 9€ O7¢5 21 MOVAB NARS CABLN(SP) ANA ;NAMSL ~ESA(SP) [SET ADDRESS OF RESULT BUFFER 
28 ag p 7CA 21 MOVL [POINT TO NAM BLOCK 
i ice 153 50$:  CMPB afaik RIT i KNOWN FILE CHECK? 
12 O7D2 2154 BNEQ 55$ [NO, THEN SKIP 
£04 : SETBIT NARS NOCONCEAL,, - <WRANSCATE CONCEALED LOG. NAMES | 
708 21 SETBIT MABSTnKrO FABSL_FOP(R6) - ¢SET KNOWN FILE OPEN 
4 ab 04 AC 90 O7DD 21 : 55$: MOVB  P1(APT,FABSB FNS (RG) ;SET PRIMARY FILESPEC 
cA 8 At 0 7E2 215 VL  P144(AP), FABSL_FNA(R6) | 
avy 02 7E? 2160 MOVE — #FABSM_GET  FABSB_FAC(R6) TREAD-ONLY ACCESS 
17 3 OF 90 O7EB 216 vB ot ABSA ET!FABSM~PUT!FABSM_UPD!-;ALLOW OTHERS 
7FO 216 FABSM_DEL!FABSM_OPI ,FABSB_SHR(R6); | 
O7FO 216 serert FABSV~PPF ,FABSL—FOP(R6) USE PROCESS 1/0 SEGMENT 
7F5 2164 EN FAB=(R6) [OPEN THE FILE TO GET REQUESTED INFO 
26 50 €9 O7FE 2165 RO,85$ SIF ERROR, RETURN NULL STRING 
801 166 SCLOSE FAB=(R6) [CLOSE THE FILE AG 
55 01A7 9A OB0A 216 MOVZBL 1(R7),R5 [GET OFFSET TO FIEL 
12. 13 080 168 EQL 608 ‘BRANCH IF NONE 
55 5E 0 081 1g ADDL sp RS ‘POINT TO FIELD 
54° O02 A A 081 170 MOVZBL 2(R7),R4 :GET LENGTH OF FIELD 
09 13 0817 2171 EQL 0$ ‘BRANCH IF NONE 
50 03 A? 9A 0819 1% MOVZBL 3(R7),RO [GET STARTING BIT NUMBER 
51 65 54 50 ef 081D 217 EXTZV. RO,R4,(R5),R1 sFETCH CONTENTS OF FIELD 
37"AF «6oO9F-—sOO8 : 174 60$:  PUSHAB B*90$ SRETURN AFTER CASE 
16 11 08 5 125 BRB GET_FILE_ITEM [GET DATA ITEM 
51 OCA 00 08 7 133 85$:  MOVL FABSL_STV(R6),R1 :GET SECONDARY STATUS FROM SOPEN 
03 13 0828 2178 BEQL 88$ SBRANCH IF 
0 51 pd 0820 2179 MOVL R1,RO SREPORT SECONDARY ACP STATUS, NOT RM 
SE 08 AD OE 08 0 2180 88$:  MOVAB 8(R9), ,sP SCLEANUP STACK 
ODE? 31 834 1 BRW P1_ERR SREPORT ERROR 
5E 08 Ad 9 o8 ; + § 90$:  MOVAB 8(R9),SP :DEALLOCATE STORAGE ON STACK 
0 8 B 2184 RSB : 
C 2185 
€ 21 6 GET_FILE_ITEM: 
83C 21 CASE  4(R7),TYPE=B,<- :CASE ON TYPE OF FIELD 
83C 2188 100$,- ‘BINARY 
B3C 2189 e008. S DATE/TIME 
8 € 2190 00$,- SASCIC STRING 
€ 2191 400$.- SFILE 1D STRING | 
83C 19¢ 500$,- [FILE ORGANIZATION 
8 € 219 $008 .- SRECORD ATTRIBUTES 
C 219% $:- SRECORD FORMAT | 
B3C 2195 8008 .- TOWNER UIC | 
83¢ 196 00$.- :PROTECTION | 
€ 219 1000$,- [EOF - # BLOCKS IN USE 
¢ 198 1100$.- :BOOLEAN 
¢ 19 1200$> [KNOWN FILE | 
59 ? | 
39 : + RETURN BINARY NUMBER | 
52 0&4 0859 4 100$: CLRL  R2 :INDICATE BINARY RESULT 
05 38 3 RSB 


EL 
DX 
505$: .ASCII ‘SEQ REL 1 
R 
J, 


OOCoCOooooooooooooo 


E 10 | 
LEXI EXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro v04-00 P 48 
Vin b00 GET FILE ATTRIBUTES Breee lobe FSi eese HOR/MES Macro yOenNO 29? 17) | 
f yin RETURN DATE/TIME STRING | 
¢ 00$ SASCTIN, S$ (RO), (RO), (RS) SCONVERT TO ASCII DATE/TIME STRING | 
51 69 zp i fp fos “(R9) RA 'GET DESCRIPTOR OF STRING | 
F 354 
oF 18 § RETURN ASCIC STRING | 
51 85 9A ef 15 $00$:  MOVZBL (R5)¢ R1 :GET LENGTH OF STRING 
69 51° «1 If CMPL (R9) i ENOUGH ROOM FOR STRING? | 
ae By Belly Bos Pa ae 
oor os ah By Ge ae flee ES re 
52. 04 A9 09 ei 1 mOVL Slash ae [GET ADDRESS OF STRING 
86 5 310$: STATUS eyrove ;SIGNAL BUFFER OVERFLOW 
OD8E 31 Hy 4 BRW ERROR 
30 $; ? RETURN FILE ID NUMBER 
54 «55 20 630 8 4008: Move :PASS ADDRESS OF FILE ID 
OEBA 31 895 3 BRW Pa ERAT _FILEID SFORMAT INTO ASCII STRING 
536 1 RETURN FILE ORGANIZATION 
B96 § ASSUME FABSC_SEQ EQ 0 > *x00 
896 4 ASSUME FABSC"REL EQ 1g > *Xx10 
896 5 ASSUME FABSC7IDX EQ 3 : *x20 
58 44 49 20 4C 45 52 20 51 45 53 0896 6 Dx" 
0 
fF 
r 
48 


| 
| 
| 
| 
| 
| 
| 
| 


1 
51 51 FC 8F 78 Bt 500$:  ASHL R1,R1 :GET UPPER NIBBLE AS INDEX 
52 EC AF41 DE OBA6 MOVAL sosétnt R2 [SET ADDRESS OF STRING 
1 03 00 O8AB 224 MOVL #3,R1 [SET LENGTH OF STRING 
0 BAE 4 RSB 
BAF 45 i RETURN RECORD ATTRIBUTES (RAT) 
BAF 5945 ° ASSUME FABSM_FTN EQ 1 
AF 226 ASSUME FABSM-CR EQ 2 
AF 226 ASSUME FABsn= PRN EQ 4 
4E 54 46 09" AF 605$:  .ASCIC 
52 43 3 2249 sASCIC "CR® 
00 50 .BLKB 1 :PAD TO LONGWORD BOUNDARY 
4E 5250 O0* ? 333 “ASCIC PRN’ | 
90° 2252 eASCIC °° sUSE NULL IF FFS FAILS | 
C 3 | 
51 65 0 €A ‘ 33 600$: FFS #0 43 (R5),R1 sFIND FIRST BIT SET 
52 EA AFS1 DE 08C 5 movaL  6058(R1),R2 7SET ADDRESS OF STRING | 
82 9A C6 é MOVZBL (R2)+,R1 [SET LENGTH OF STRING | 
05 c9 RSB 
CA § : RETURN RECORD FORMAT (REM) 


0E60 


51 
18 A6é 


0E54 


owooo-c9o0 frum 


VPMONMWFOou 


Wo 
-o 


site 


FILE A 


oo 
wooo 
oo 


PROPIPOPONOPININOIY 2 tt ot 


COoooooeoo 
DONNY THT HMO POWMUIMNUIUNTO FH 


DOOOOOOOOOOOOOOOOOONOS 


Tl 
BUTES 

; SSUME FABSC_UDF 
ASSUME FABSC~FIX 

SSUME FABSC-VAR 

ASSUME FABSC~VFC 

5 ASSUME FABSC-STM 
Soca, MEME UaBEtsaIN 
68 705$: . ASCII ‘UDF FIX V 


7$: .BYTE 3,3,3 

1 ee: CMPLOW RY 

7 BNEQ 710$ 

7 MOVL #7,R1 

73 710$:  MOVAL POSSERII.R2 
707$€R1).R1 


if RETURN OWNER UIC 


9 boos: MOVL R1,R4 
BRW FORMAT_UIC 


$ RETURN FILE PROTECTION 


wn So 


5 §00$: MOVL RILRG 
$ BRW FORMAT_PROT 
88 ; 
89 ; RETURN # BLOCKS IN USE 
91 1000$: TSTw 
3¢ BNEQ 10$ 
9 DECL RI 
94 1010$: CLRL R2 
99 RSB 


99 11008: BRW 


13 
: RETURN BOOLEAN TRUE/FALSE 


‘ i200: cLRL Rt 


TSTL foes _CTX(R6) 


z 
o 
- 
=2— 


I 
08 12108: BRW 


<oOoo0O fuwn-o 


KABSU_FFB-XABSL_EBK(RS) 


97 : RETURN BOOLEAN TRUE/FALSE 
FORMAT_BOOLEAN 


FORMAT_BOOLEAN 


ON PARSE AND EXECUTION R by at i ~~ 1384 9: 00: i$ aves Macro Vv04-00 


DCL.SRCJLEXICON.MAR; 1 


6 
FC STM STMLF STMCR ° 


1s RFM ON 4 BYTE OFFSET? 
, SKIP 
"SET OFFSE 
NOs ADDRESS OF STRING 
SSET LENGTH OF STRING 


sPASS UIC LONGWORD 
;CONVERT INTO ASCII FORM 


sPASS PROTECTION WORD 
sCONVERT INTO ASCII FORM 


sFIRST FREE BYTE = 0? 

:1F NOT, EBK = BLOCKS IN USE 
ELSE DON'T COUNT LAST 1 
INDICATE RESULT IS BINARY 


sRETURN ‘‘TRUE’’ OR ‘‘FALSE"’ 


sASSUME NOT KNOWN 
31S 11? 

3NO, THEN 

ives, TH HEN RETURN . TRUE ee 
RETURN ““TRUE'’ OR ‘’FALSE 


Page 49 


(17) 


6 10 | 
RSE AND EXECUTION R 16-SEP=1986 00:00:36 VAX/VMS Macro v04-00 p | 
rams oes ri a Bk shes are 4 eet ee aoe 78) | 


:4 «SBTTL GETOVI SYSTEM SERVICE 
 FSGETOVI - GET DEVICE/VOLUME INFORMATION 


: THIS LEXICAL FUNCTION INVOKES THE SGETDVI SYSTEM SERVICE TO 
; OBTAIN ANY PIECE OF INFORMATION FROM A GIVEN DEVICE. 


| 
FSGETDVI(DEVNAM, ITEM) | 
INPUTS: 
R2/R3 = DECRIPTOR OF SCRATCH BUFFER | 
PI(AP) = DESCRIPTOR OF DEVICE NAME | 
P2iAP) = DESCRIPTOR OF SDVI ITEM NAME | 
OUTPUTS: | 
| 

| 


yO0-000 GE 


—r 
om 
<ot 
are 

o 


FUNC 
TcM 


=2 


be 
ov 
m> 


mew 


R1/R2 = DESCRIPTOR OF RESULTANT DATA 


FR Se Ge Ge Se Se Be Se Se Ge Se Ge Ge Se Ge Se Se 
$ 


SGETDVI: 
CLRQ 0s = ( SP) RESERVE 10SB, WILL BE 8(R5) 
MOVL  R2,<(SP) AVE LENGTH OF SCRATCH BUFFER 
CLRL 0s =< SP) ALLOCATE A LONGWORD FOR DEVCHAR 
MOVL = SP, RS : R5 POINT TO IT 
CLRL = ¢ §P) S INDICATE BOTTOM OF ITEM LIST 
PUSHAB =12(SP) SADDRESS OF WORD TO RECEIVE DEVCHAR LENGTH 
PUSHL SADDRESS OF BUFFER TO RECEIVE DEVCHAR 
PUSHL  &#<DVI$_DEVCHAR+1>a16+4 : SECONDARY DEVICE DEVCHAR ITEM CODE 
PUSHAB ~12(SPY SADDRESS OF WORD TO RECEIVE ITEM L 
MOVQ = R2, = (SP) [SAVE DESCRIPTOR OF SCRATCH ITEM BUFFER 


At this point, the stack looks Like below: 


NOUS WN $9 ONAN WIN  O OS NOU EW" OOOVNOUE WO “wt 


PEEP EES FWWWWWIWIWIWIWIAIRRIPIPIPINININNN) 2 2 


3 entry SP=> 


3 scratch Len: 
3; RS => 
3; itmlst end: 3 0 


: “addr of X (retlen) 


DP PUPVPVSIVUSUSUSISISIN 


UENO OONAUS WHO 00 


ENGTH 
| 
| 
| 
| 
| 
| 
| 


. 
= 
eee 
so 
< 
ca 
at 
‘o 
m 
— 
o 
= 
Baa 
Pe) 
- 
— 
= 
@ 
=] 
“ 
= 
eee 


w 
a“ oS ww 
m 2 wim 
_ 
Pd 
oup sun 
nm mmrom 
~ o coon 
onrnOoOoNFOrfronm 
BDPPPSSPPPPSPPPLLLSLPLLLS BSS ; -. ; 
Pe 3 wt ot et oe ee PPB EEE EEE FHI IIRPIPINIPOPININIPOPONINIPIPOPITURIROTUPRURITUNURD 
DDD DODDDWWDWVWWDWWWIVIWWIWI OWN "GS FP OUVUWOMMMMMMMMMMMMMMMMMmMmMmMmemnenen “Ve 
PRIFIPOPIPOPIPIPOPIPIPOPIPONIPOPIPINIPIPIPIPIPIPIPIPIPINIPIPIPIPIPIPUIPIPIPOPIPUPIPOPIPIPIPURIPIRIPUPIPOPIPIPIPINUND 


& 


addr a Y (retlen) : 


7 
H 10 
= LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 YAX/VMS Macro v04-00 Page 51 
cetovi SYSTEM SERVICE pa et} 99:90:36 foci sacle XICON.MAR; 1 - (18) | 
i i = : | 
3 ¥: 3 requested ; : 
“8 f Y DVIS d; R2 
48 72; SP => 3 : 
is if P4 a P i 
0000}683" F 4 75 MOVAB GETDVI_TABLE.R6 :GET ADDRESS OF TABLE 
6 D 33 1 10$ MOVL = RG, R [GET ADDRESS OF ENTRY | 
§ § 7 ADDL #4-R6 [GET ADDRESS OF ASCIC ITEM NAME | 
“6 A 09 A: MOVZBL (R6),R8 [GET LENGTH OF ITEM NAME 
13 09 7 BEQL [BRANCH IF END OF TABLE 
10 Bt ns A 2D 09 9 CMPCS P CAP) ,@P2*4(AP) .#0,~ [DOES ITEM NAME MATCH? 
Q 13 0966 3 Bea. 4-208 [BRANCH IF ITEM FOUND | 
4 c6 968 ADDL RB,R6 [SKIP TO NEXT ENTRY IN TABLE 
6 01 ‘ 966 4 ADDL #1.R6 :BE SURE TO COUNT THE COUNT 
é 1 096 5 BRB log SLOOP UNTIL FOUND 
02 ag B0 05 $ 208: mMOVW = (R7) ,2¢ SP) [SET ITEM CODE INTO LIST 
E 00 09 $:  MOVL _ SP,RO [GET ADDRESS OF ITEM LIST 
8 $GETDVIY_ 5 DEVNAM=P1 (AP) ,- [GET INFORMATION ON SPECIFIED DEVICE 
5 TTMLST=(RO),= ; 
90 B=8(R5) ,- : 
: 91 ErN=#EXESC, SYSEFN : | 
45 50 §9 3 BLBC 0,9 [BRANCH IF ERROR DETECTED 
50 98 AS) 63¢ «(OS 9 MOVZWL 8 (R5),RO :GET STATUS FROM IOS 
E50 €9 099 94 BLBC ~—-_« RO, 90 SARANCH IF ERROR DETECTED 
54 50 DO 099D 2395 MOVL 0,R4 ZSAVE STATUS 
1D 65 96 E1 9 BBC #DEVSV_SPL,(R5) ,50S SSPOOLED DEVICE? 
D4 9 CLRL [SET SPOOLED FLAG 
OE AE 02 BO O09A6 2398 MOVW #DVIS_DEVCHAR,14(SP) GET DEVCHAR OF PRIMARY DEVICE 
02 AE B1 99 CMPW 39s #DVISDEVNAM, 2(SP) TARE WE GETTING DEVICE NAME? | 
8 if AE 4 BNEQ 4 [NO, THEN NO SPECIAL PROCESSING 
04 a7 09 «#91 0980 2401 CMPB 0s #9, 4(R7) TARE WE GETTING SPOOLED DEVICE NAME? | 
2 12 ri ; BNEQ © 408 [NO, THEN NO SPECIAL PROCESSING 
Bt 1 9B6 24 BRB 30$ [YE$, THEN DON'T INCR ITEM CODE 
6E 04 A5 BO 0988 2404 40$:  mOoVvw 4(R5),(SP) SRESET RESULT LENGTH 
02 AE B6 09B8C 2405 INCW (SP) [GET SECONDARY DEVICE DATA 
B3 11 O9BF 24 BRB 0$ TRETR 
02 AE 8 C1 2407 50$ CLRW (SP) [CLEAR ITEM CODE, LEAVING RETLEN 
51 8 D 0904 24 3 va (SP)+_R1 [GET DESCRIPTOR OF STRING/LONGWORD 
SE 55 10 C1 09C7 2% ADDOL3 #16,R5,SP TRESTORE STACK | 
33° —CO1 cB 419 RB GETOVI_ VALUE :GET VALUE | 
4 tig : NO SUCH ITEM NAME | 
CD 2414 BOS: STATUS IVKEYW SUNDEFINED ITEM NAME 
SE 55 19 1 D4 2615 ADDL3 #16, R5 sP [CLEAN STACK | 
0c4 908 hig BRY = P2_ERROR REPORT THE ERROR | 
9B 18 : ERROR DETECTED BY GETDVI 
SE 55 10 C1 0908 26 9 $0$:  ADDL3 #16,R5,SP ZCLEAN STACK 
50 60000000" F oI DF 24 CMPL #SS$_IVDEVNAM,RO *YES, 1S NAME INVALID? 
9 13 ges 4 j BEQLs9 [YES,. THEN CHECK EXISTS BIT 
00000000'8F 01 O9EB 24 CMPL  #5S$_NOSUCHDEV,RO ‘NO, THEN DOES DEVICE EXIST? 


51 4 


02 A7 oo 
04 A7 $5 
5s 

34 

* oS 

51 2 

03 A? OFF 4 
51 : 


oo -0 -0-"- @ 
EWAN =n 


1.10 
EXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 
Tbvl S¥sTER ra 


SERVICE P=19 


Biers me ae EA Rt ae Page 3%, 
8 PELE CE A 
INO, THEN REPORT ERROR 
tve§, THEN RETURN FALSE 


ves, TH 
SRETURN THE VALUE 
SREPORT THE ERROR 


sCASE ON TYPE OF FIELD 

;BINARY 

nad {4 STRING 

SOWNER UIC 

:BOOLEAN 

sHEX STRING 

;PROTECTION MASK 
YPE 

HEX STRING 


T LONGWORD VALUE 


3GE 
: INDICATE RESULT IS BINARY 


ARE We GETTING DEVICE NAME? 
: NNO SPECIAL BROCESSI 
:Ané ue GETTING SPOOLED DEVIC 
7NO, THEN NO at PROCESS! 


CE SPOOL 
» THEN USE FETCHED NAME 
INO. “THEN RETURN NULL STRING 


E NAME? 
NG 


sPASS UIC LONGWORD 
ZCONVERT INTO ASCII FORM 


4 ‘ BNEQ 
425 93$:  CMPB ADEVSv EXISTS, 3(R7) 
4 5 BNEQ =(9 
¢ pkuC FORMAT pROOLeAn 
4 es 95$: BRW Py ER 
4 : NORMAL PROCESSING FOR LONGWORDS, STRINGS AND HEX VALUES 
433 GeTDVI -VALUE: 
4 4 ASE if 7), TYPE=B, <= 
4 $:- 
4 $ O08. 
4 8 400$.- 
420 3508! = 
441 5008. 
44 800$> 
8 
449 : RETURN BINARY VALUE 
rr {00$: MOVL (R2),R1 
448 CLRL sR 
449 
aa 
43¢ ? RETURN ASCII STRING 
454 2008: CMPW #DVI$_DEVNAM,2(R7) 
455 NEQ 
436 CMPB «#9, 4(R7) 
i BNEQ -- 210 
458 TSTL RO 
459 BEQL 2108 
460 CLRL sR 
461 210$: RSB 
i 
464 i RETURN OWNER UIC 
466 $008: MOVL (R2).R 
46 BRW FORMAT ‘ule 


a7 | RETURN BOOLEAN TRUE/FALSE 
47¢ ioos:  movzeL 


47 CMPB aDEVEV EXISTS, 3(R7) 
474 BNEQ 4108 

475 MOVL #1,R1 

476 4108: BRW FORMAT_BOOLEAN 

478 

479 ; 

480 : RETURN HEX STRING 


; FETCH THE RETURNED VALUE 

t ARE UE CHECKING FOR DEVICE EXISTS? 
; NEG MEANS WE AREN'T 

; IT ALWAYS EXISTS (AT THIS POINT) 

; RETURN "TRUE" OR "FALSE" 


EE 


52 


50 
00000000 ' EF 


CAL 


Y 


F 
ST 


ct ON PARSE AND EXECUTION R by a see-t 


SERVICE P=] 
4 . 
4 ; $00$:  MOVL (R32) RO 
4 BEQL 10s 
‘ : JMP DCLSCBTA_HEX 
4 ; 
487 : RETURN PROTECTION STRING 
cB 
4 lees MOVL 
43 BRW (Gamat PROT 
4 3 
rt : RETURN ACP TYPE 
49% 
495 fees. MOVL (R2), 
496 MOVAQ ACP f ABLECRO, »R2 
49 MOVZBL (R23+, 
498 RSB 
4 
ue ; RETURN HEX STRING 
4 boos: TSTL 
304 Beat 8108 
505 JMP DCLSCBTA_HEXSTR 
506 810$: RSB 


Be O8:002F Ee SAKE 


sPASS H 
s1F ZERO 
; CONVERT 


HL 
+ RETU 
“HEX T 


ro V04-00 
ECE ISS 


sPASS PROTECTION MASK 
;CONVERT INTO ASCII FORM 


1S LENG 
sYES, RE 


RING 
; CONVERT HEX TO STRING AND EXIT 


TH ZERO? 


C 
CP TYP 


TURN NULL ST 


ACP 


Pee i) 


| 
| 


——— eee 


LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP=1 AX/VMS Macro v04-00 Pa 4 
riety Pat SYSTEM SERVICE eg: Het 99: 9: if Yoel SRCILEXICON.MAR; 1 - (33) 
i f : «SBTTL GETJPI SYSTEM SERVICE 
A f 10 FSGETJPI = GET JOB/PROCESS INFORMATION 
AGF 2512 : THIS LEXICAL FUNCTION INVOKES THE SGETJPI SYSTEM SERVICE TO 
A F 13 t OBTAIN ANY PIECE OF INFORMATION FROM A GIVEN PROCESS. 
rt 15 ; FSGETJPI(PID, ITEM) 
AGE SH + INPUTS 
AGF 2519 : PI(AP) = DESCRIPTOR OF P D STRING OF DESIRED PROCESS, 
F ; FOR CURRENT PROCESS 
A f ; P2(AP) = DESCRIPTOR OF $JPI ITEM NAME 
Aer 58 ; Saree 
F 2525: R1/R2 = DESCRIPTOR OF RESULTANT DATA 
A aah 
AGF 25 8 FSGETUPI: 
FS8E" 30 AGF 25 BSBW = DCLSMARK :MARK POSITION IN EXPANSION BUFFER 
A72 2530 CLRQ ss =( SP) SRESERVE 10SB 
7E 7C OA74 2531 CLRQ 0s =( SP) [CLEAR LENGTH AND ITEM ID OF LAST ITEM 
A76 25 2 SAND ALLOCATE SPACE FOR PID LONGWORD 
FGA 9 Oa? 6 PUSHAB -12(SP) SADDRESS OF WORD TO RECEIVE LENGTH 
e 5 D OA79 2534 mova =( TSAVE DESCRIPTOR OF SCRATCH BUFFER 
56 00009100"EF 9 bare 535 MOVAB GETJPI_TABLE,R6 [GET ADDRESS OF TABLE 
DO OA 5 6 10$:  MOVL  (R6)+,R7 [GET JP1 CODE(O:15), FLA $(163 23), 
A 3 : ITEM STRING LE ENGTH(24: 
93 12 OA 3 BNEQ 15% :SKIP IF NOT AT END OF T 
92 31 OA 5 BRW 80$ [ERROR IF END OF TABLE 
5 FAG 9A OA 340 15$ MOVZBL -1(R6),R 'GET LENGTH OF ITEM NAME 
00 108C OC at 2D ABE 41 CMPC Beene “BP2O4CAPD, #0,- :DOES ITEM NAME MATCH? 
03 13 ng? 28 Bea. 4-208 [BRANCH IF ITEM FOUND 
56 58 CO 0A99 2544 ADDL RB, R6 SSKIP TO NEXT ENTRY IN TABLE 
ES 11 OA9C 2545 BRB ue [LOOP UNTIL FOUND 
93 Ae 80 46 20S: movi e2k$P) [SET ITEM CODE INTO LIST 
04 AC 7D OAA 4 MOVva 1 CAP) ,R2 :GET DESCRIPTOR OF PID STRING 
96 A 48 MOVZBL BPR kK HEX,R1 [SET RADIX FOR CONVERSION 
F554" AA 4 BSBW DCLSCNUASCBIN [CONVERT HEX STRING TO BINARY IN R1 
2 12 OAAC 2550 BNEQ $ [BRANCH IF CONVERSION ERROR 
10 ar 1 DO OAA 3] MOVL RI. 16(SP) [STORE PID LONGWORD 
E AB ; MOVL _SP.R [GET ADDRESS OF ITEM LIST 
AB 33 SCETIPIU S PIDADR=16(RO) ,~ [GET INFORMATION ON SPECIFIED PROCESS 
T= oe P+ 
AB 33 10SB=20(RO).- 3 
AB : EFNG#EXESC. SYSEFN 
53 50 § AC B.ec Os «aR [BRANCH IF ERROR DETECTED 
50 (14 3 ¢ AD 8 MOVZWL 2 yay RO 'GET STATUS F OM 10SB 
ac 50 €9 OADS BLB R [BRANCH IF ERROR Del ECTED 
02 AE 64 OADB 0 CLRW 430s 2 §P [CLEAR ITEM CODE, LEAVING RETLEN 
06 BA OADB POPR Seance R2> GET DESCRIPTOR 6re§ STRING/LONGWORD 
SE 14 CO OAD : ADDL  #5%4,SP [AND CLEAN S 
0322 &F 37 1 OAE 6 CMPU =s-R7., #@JPI1$_MODE EASKING FOR nove? 
3 12 OAE 4 BNEQ ©: 308 [IF NOT, THEN SKIP 


| 
a 


CLRL 
RSB 


3 
= 


} RETURN HEX STRING 


$0$: CLRL 1 TASSUME RETURNING NULL STRING 
OVE £R2) .RO [PASS LONGWORD PID AS ARGUMENT 


50 


—OOOVNOUS WO O00 


CDI) at tt et tt tt 


PDAAAGSASO 


HAAw 
con— 
Oo 


cIF ZERO, RETURN NULL STRING 


L 
LEX! = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro V04-00 P 5 
rite GETIPL SYSTEM SERVICE aioe ra ere me ree Pee ert ae aoe 33) 
00 31 OAE7 5 BRW $TS_MOD z1f $0, CHECK IF USER WANTED "MODE" 
0206 8F ? AEA 6g 30S: CMPY R 7°18. LOGINTIM SASKING FOR LOGIN TIME? 
00 AF, 586 Bre OF OGINTIM STE ROT ORHAT AG DATE/TIME 
0306 8F °F AFS g369 40S: = CHPW PuPTS. STATE ASKING FOR STATE? 
Ate 589 ae pee {TF SO. RETURN STATE KEYWORD 
0304 8F mee 8} AF te 50S:  CMPw R7,#JPTS_UIC TASKING FOR UIC? 
if Brae a VIC Tf NON ORHAT Ure SPECIALLY 
57 57 08 " fF re 60$:  EXTZV #16,# Rh a TEXTRACT ITEM TYPE FIELD 
0028 «31 i: BRW GETJPI” VALUE SGET VAL 
A: ; ERROR CONVERTING PID STRING TO A BINARY LONGWORD 
10 2580 70$: | STATUS EXPSYN sEXPRESSION SYNTAX ERROR 
SE iC go 1 1 ADDL #7%4,SP [CLEAN STACK 
OAFB 31 A é 75$: BRW P1_ERROR ‘REPORT ERROR 
81D 3 4 : NO SUCH ITEM NAME 
81D 3 6 bos: STATUS IVKEYW JUNDEFINED ITEM NAME 
0B 4 388 : ERROR DETECTED BY GETUPI 
SE 1C CO 0824 2590 $0$ ADDL 4#7%4,SP :CLEAN STACK 
0000'8F 50 681 OB27 2591 CMPW =—-—- RO, #$S$_SUSPENDED SSUSPENDED ERROR? 
OA 13 OB2C 298 BEQL :RETURN NULL/ZERO IF SUSPENDED 
0000' 8F : B1 0B 39 CMPW «RO, #SS$_NONEXPR SNONEXISTANT PROCESS? 
—é5 13 OB 9% BEQL SREPORT P1 ERROR 
OAE6 «31s 595 BRW P2_ERROR *REPORT ERROR 
1 064 3 296 95$ CLRL RT SRETURN NULL STRING 
05 A 297 RSB 
444 t NORMAL PROCESSING FOR LONGWORDS, STRINGS AND HEX VALUES 
0B 601 GETUPI_VALUE: 
0B 60¢ CASE. 7, TYPE=B,<- sCASE ON ITEM TYPE 
60 108,~ SBINARY 
604 : $;- ?STRING 
605 0$.- [HEX LONGWORD STRING 
606 40$;- SPRIVILEGE LIST 
: 6 0$,- sBITVAL 
a58 6 0$> THEX STRING 
BAB 6 ; RETURN BINARY VALUE | 
51 62 00 0B4B 2612 10$:  MOVL  (R2),R1 3GET LONGWORD VALUE | 
52 4 5 6 R2 S INDICATE RESULT 1S BINARY 
+ 
B51 
B55 
| 
| 
| 


- — | 
i 


00000000° EF 
7E 2 
56 

03 66 1 


F151 0000004 


50 


am 6 


50 $6 
52 00001491°EF4 
51 B2 


nO 
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? 
? 
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8 
3 
8 
8 
3 
3 
8 
8 
9 
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6 
6 


3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
3 
5 
5 
5 
5 
2 
5 
5 


@SEP-1 


JMP ss OCLSCBTA_HEX 


} RETURN PRIVILEGE LIST 


les: MOVQ  (R2),=(SP) 
MOVL  SP,R6 
CLRL 

45$: BBC (R6) ,50$ 
BSBW nos _PRIV. STATE 

50$ AOBLSS “R1,4 
BSBW DCLSRARKED TOKEN 
MOVL K_L_MARKPTR(R10) = 

URE = “EXPANDPTR RCRIO) 

TSTL sR 
BEQL 338 
DECL 

55$: ADDL #B,SP 
RSB 

: RETURN BOOLEAN 
los (R2),R1 


MOVZBL 
BRW FORMAT BOOLEAN 


RETURN HEX STRING 


40S: TSTL =e RV 

BEQL © 75$ 

JMP DCLSCBTA_HEXSTR 
75$: RSB 


? SPECIAL PROCESSING FOR “LOGINTIM" 
ee atti 


an #33 RO 
SASCTIN.§ Pe TRBUF=(RO) .- 
TIMADR=(R2) 
mova = (SP) +,R1 
RSB 


$ SPECIAL PROCESSING FOR ''STATE" 
GETIPI_STATE: 


MOVL  (R2),RO 
MOVAQ  STATE_TABLECROJ.R2 
MOVZBL (R2)¢7R1 


RSE AND EXECUTION R ak tae 9 90:00: 39 yne( ves Macro v04-00 


DCL.SRCILEXICON.MAR; 1 
;CONVERT PID TO STRING AND EXIT 


:PUSH PRIVILEGE MASK ON STACK 
'GET ADDRESS OF MASK 

*START WITH PRIV # 

‘SKIP IF PRIV IS NOT PRESENT 
SAPPEND EACH KEYWORD TO STRING 
SLOOP FOR EACH PRIV IN MASK 
'GET DESCRIPTOR OF STRING 
SRESTORE POSITION IN EXPANSION BUFFER 
;WERE NO PRIVS FOUND? 

:YES, THEN NO TRAILING COMMA 
SREMOVE TRAILING COMMA 
SRESTORE STACK 


sFETCH THE VALUE 
;RETURN TRUE” OR *’FALSE"* 


ee Rag 2 eer 0? 
RETURN NULL_ STRING 
: CONVERT HEX TO STRING AND EXIT 


sADDRESS OF RESULT BUFFER 
;RESULT BUFFER LENGTH 


CONVERT QUADWORD TIME TO ASCII 
PICK UP RESULTANT STRING DESCRIPTOR 


“7 


m 
DPDAERAEARLARAAAAAAA AAA AAA AO Be 


52 eee’ hell 


L 
Y 
A 
A 
A 
A 
a 
A 
) 
7? 
9 


BEQL 

MOVAB 1(R1)CR2],R2 
INCL R3 

BRB 25$ 

699 40$: RSB 


N10 
CTION PARSE AND EXECUTION R 16-SEP=1984 00:00:36 VAX/VMS Macro V04-00 
URN ite e-3é -SEP =}382 99: 00: i? DCL.SRCILEXICON. MAR; 1 
7 
beTuP1 UIC: 
MOVL  (R2),R :GET UIC LONGWORD 

: BSB FORMAT_UIC FOR MA AT UIC INTO ASCII STRING 
3 

$; ; WE JUST GOT JPIS$_STS = CHECK IF USER WANTS "MODE" 

8 éts MODE : 

MOVL  (R2),R4 3GET MODE LONGWORD 

30 CLRL ‘SET LOOP INDE 
9 MOVAB MODE_TABLE,R2 “GET ADDRESS OF MODE TABLE 
3 25$ MOVZBL ( Re), oR1 GET LENGTH OF MODE 
9 BEQL 40 BRANCH FT 
94 CMPL = RG, RB 1S THIS T 
95 E YE 
36 SKIP TON 
9 INCR LOOP 
98 


Sete te Se Se Ge Ge Se Se 


wm 
“<x 
VP ad 
<-- 

Fe 

o 
mee 
=2 


-_ 
ov 
m> 


mw 
“nn 


B11 
es oo enecUlin w eee Ises SUAEHE EGER HORE, Pe 


1c T 
EM S 
EA ? fe -SBTTL GETSYI SYSTEM SERVICE 
EA f gj : FSGETSYI = GET SYSTEM INFORMATION 
EA 5705 : THIS LEXICAL FUNCTION INVOKES THE SGETSYI SYSTEM SERVICE TO 
EA f $i ; OBTAIN ANY PIECE OF INFORMATION FOR THE CURRENT SYSTEM. 
EA , g: : FSGETSYI( ITEM, NODE) 
EA 210 § INPUTS: 
EA ar : P1(AP) = DESCRIPTOR OF $SYI ITEM NAME 
EA 9713 ; P2(AP) = DESCRIPTOR OF NODE NAME OF DESIRED SYSTEM, 
SA oe i 3 NULL OR O FOR CURRENT SYSTEM 
EA £16 : OUTPUTS: 
EA 218 : R1/R2 = DESCRIPTOR OF RESULTANT DATA 
OBEN $545 * 
OBEA 721 FSGETSYI: 
7E 7C OBEA 27 g CLRQ 2s =( SP) :RESERVE 10SB 
7E 7C OBEC 27 CLRQ = =((SP) SRESERVE CSID AND CLEAR LENGTH AND ITEM ID 0 
F4 AE QF OBEE 2724 PUSHAB -12(SP) SADDRESS OF WORD TO RECEIVE LEN 
56 o000eso'er SF bara 575% MOVAB . GETS. TABLE.R6 SET ADDRESS OP TABLE BUFFER 
57 6 DO OBFB 27 $ 10$: MOVL (R6)+,R7 - 3GET SYI CODE(0:15), Pat :23) 
OBFE 2728 : ITEM STRING LENGTH(24: 31) 
03 12 OBFE 2729 BNEQ 15$ {BRANCH IF NOT END 0 
OOAA 31 0C00 2730 BRW 80$ ‘BRANCH IF END OF TAB 
58 FF A6) «9A «(0C03 «(2731 158: MOVZBL -1(R6) RB [GET LENGTH OF ITEM ie 
00 08 BC ae aC 2D 9¢07 , é CMPC PICAP) <@P'1 #4 (AP) , #0, :DOES ITEM NAME MATCH? 
03 13 Ocor 734 BeEaL -- 208 ‘BRANCH IF ITEM FOUND 
56 58 cO 0C11 2735 ADDL  R8,R6 [SKIP TO NEXT ENTRY IN TABLE 
gS 11 0C14 27 6 BRB 10$ SLOOP UNTIL FOUN 
02 aE 57 B0 ci 737 208:  MOVW  R7,2(SP) :SET ITEM CODE INTO LIST 
Oc AC 05 OCIA 2738 TSTL Be cap) :P2 SPECIFIED? 
05 19 OCID 2739 BLSS 25$ ‘BRANCH IF NOT 
10 AE OC AC 7E Belt 740 MOVAQ P2(AP),16(SP) 'GET ADDRESS OF NODE DESCRIPTOR 
50 SE DO O0C24 2741 25$:  MOVL  SP,RO [GET ADDRESS OF ITEM LIST 
O¢ 7 148 SGETSYIW_S$ ITMLST=(RO) ,- :GET INFORMATION 
C27 274 RODENA ARE =316(RO), - 3 
C27 2744 10$B=20(RO) : 
C27 2745 EEN=#EX XESC “SYSEFN 
71 50 £9 C4 746 BLBC =—._—s«aRO, 90 [BRANCH IF ERROR DETECTED 
50 114A C 0C43 274 MOVZWL 20¢SP),RO ?GET STATUS FRO 
6A 50 €9 0C4 748 BLBC  ~—s- RO, 908 [BRANCH IF ERROR Der EcTED 
02 AE C4A 276 CLRYU 3-2 §P) [CLEAR ITEM CODE, LEAVING RETLEN 
06 C4D 2750 POPR #*M<R1,R2> [GET DESCRIPT OR “or ST INC/LONSTORD 
SE 14 C0 car 31 ADDL #5%4,SP SAND CLEAN STAC 
57 57 08 10 EF C 3 738 EXTZV #16,#8,R7,R7 sGET ITEM TYPE 
(57 2755 CASE _—R7, TYPE=B, <= i CASE att ITEM TYPE 
(57 27 : 91$,- [BINA 
(57 27 40$;- et ING 


o 
z 
zo 
<z 
= 


AROODNAU EWN OS OONAUE WN" OUOONOULSW—OW0ORD w-1 


ov 


C11 
RSE AND EXECUTION R a ot 


TT mae 


40$ 
DCLSCBTA_HEXSTR 


wR _L_EXPANDPTR‘R10) ,= 
“CHARPTR(R10) ,RO 


WVUIO UO 


WO NNN EPMO OU" “OF OO SMV OOVNIVNS <e 


COOGGOCOOCOOCGOOOCOOOOOOOCOSOOOOOOOoOO 


OOAOOOA’;OOOAA9OAIOAIAAOAAIOAIAIMAAMOOOAOAOOAOS 


& = > PS SP OOOO OW 000009090909 SII NINO oe 


5O O.09 69 09 69 69 09 09 09 69 69 SII NI NINN NNO AAA AAAAAOUIN 


; NO SUCH ITEM NAME 


SENN 
coo 
So 
af 
ee 


> > >] 
wooo 
wr 


DETECTED BY GETSYI 


#7*4,SP 
#SS$_NOSUCHNODE ,RO 
Reet 
938 


tt EN © 


R1 
FORMAT BOOLEAN 
P1_ERROR 


C 
Dd 
1 
B 
| 


:00:3 AX/VMS Mi v04-00 
retias DCL SRCJLEXICON. MAR; 1 


sHEX LONGWORD STRING 
:P BLA LIST 


§ 
Im 
H THE VALUE 

RN “TRUE” OR “FALSE” 
LONGWORD VALUE 

ICATE RESULT IS BINARY 


LENGTH 

S, RETURN NULL L_STRING 

a ty HEX TO STRING AND EXIT 
CALCULATE SIZE OF BUFFER 


[1S BUFFER LARGE ENOUGH? 


:NO, THEN ERROR 
;CREATE DESCRIPTOR OF SCRATCH BUFFER 


[GET ADDRESS OF BUFFER DESCRIPTOR 
[CONVERT QUADWORD TIME TO ASCII 


SIGNAL BUFFER OVERFLOW ERROR 


UNDEFINED ITEM NAME 


H STACK 

; FOR NON-EXISTENT NODE 

ANS_IT WASN'T THAT ERROR 
CH oe FOR EXISTENCE? 

mek WE ARE NOT 

URN et TO THE USER 

: ERROR 


D 11 
LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:3 AX/VMS Macro Vv04-00 Page 60 
en 600 CONVERT IDENTIFIER §-8 P= 19be 99:00:36 LOCLYSRCICEXT CON MARS 1 . (Sf) 
cp ee .SBTTL CONVERT IDENTIFIER 
cD ; FSIDENTIFIER = CONVERT IDENTIFIER 
cD i ; THIS FUNCTION CONVERTS IDENTIFIERS BETWEEN STRINGS AND NUMBERS. 
cD 13 ; FSIDENTIFIER (IDENTIFIER, DIRECTION) 
cD 13 ; INPUTS: 
| CD 13 : P1(AP) = IDENTIFIER NAME OR NUMBER 
| cb 18 : P2(AP) = NUMBER’ OR ‘'NAME'’ 
cD 0 ; outputs: 
CD : : R1/R2 = DESCRIPTOR OF RESULTANT IDENTIFIER 
.= 
CD 5 FSIDENTIFIER: : 
56 000021p2"EF 9€ OCD 6 MOVAB IDENT_TABLE,R6 :GET ADDRESS OF TABLE 
7 8 9A OCD : 7 10$:  MOVZBL (R6)+7R7 [GET LENGTH OF ITEM NAME 
SF 13° «OCDE 8 BEQL 95$ TERROR IF ZERO 
00 10 8c ae" Ac 2D CDE 8 ; CMPCS 2 CAP) -@P2+4 (AP) .#0,~ [DOES ITEM NAME MATCH? 
07 13 CEG 831 Bea. 208 SBRANCH IF ITEM FOUND 
56 27 C0 Oces : ADDL R7»R6 ;SKIP TO NEXT ENTRY IN TABLE 
ean TS OceD 5834 BRB «108 :L00P UNTIL FOUND 
6647 95 OCEF § 20$:  TSTB (R6)CR7I :""NAME_ TO NUMBER’? 
2A =o sre ; § BEQL 50$ YES, THEN BRANCH 
F486 CA Dp CF4 He PUSH WRK_L_EXPANDPTR(R10) |; CREATE DESCRIPTOR OF SCRATCH BUFFER 
F486 CA C3 OCF8 2839 SUBL3 WRK7L-EXPANDPTR(R10),- : 
7E E ABE es ocr 40 eal WRK AL CHARPTR(R10) ,=(SP); 
0D0 4g SIDTOASC_$ ID=P1(AP),- [CONVERT NUMBER TO NAME 
D0 4 NAMLEN=(RO) ,- ; 
tp0 4h NAMBUF =(RO) : 
51 ge 7D 0D1 45 mova = (SP) +,R1 [GET RESULT DESCRIPTOR 
1D 5 9 ODIA 46 BLBC ~—_—«aRO, 90$ [BRANCH IF ERROR 
5 DID 47 RSB RETURN 
os ze D4 D1 49 50S: cLRL SP) yALLOCATE A RETURN BUFFER 
p 31 SASCTOID S$” NAME=P1 (AP) ,~ [CONVERT NAME TO NUMBER 
51 i D0 3} 38 mOvL (SP)+,R1 GET RESULT 
01 9 OD 6 55 BLBC RO, 908 [BRANCH IF ERROR 
5 OD 26 RSB RETURN 
bea SRe 
51 4 p A 33 90$: CLRL Ri ;RETURN THE NULL STRING 
D3D 2861 95$: STATUS IVKEYW [REPORT KEYWORD ERROR 
08D7 31 «0D44 «2862 BRW P2_ERROR : 


— 11 
PARSE tw EXECUTION N6-SEP-19Rs ORSORERE WBELWDRCHREET CARAS. POMP 
:+ 


.SBTTL CONVERT TO INTEGER 
; FSINTEGER = CONVERT TO INTEGER 
: THIS FUNCTION CONVERTS ANY VALUE TO AN INTEGER 


ER 
R2 = 0 (TO INDICATE RESULT IS BINARY RATHER THAN ASCII) 


; FSINTEGER (EXPRESSION) 
> INPUTS: 
D4? ; PI(AP) = EXPRESSION RESULT 
D4 : OUTPUTS: 
D47 : 
D $ R1 = INTEG 


D47 FSINTEGER: 
51. 04 AC 7D 0D47 mova P1(AP) ,R1 
oe a 16 O0D4B 28 JSB DCLSCVT_BINARY sCONVERT STRING TO BINARY 
01 50 03 oe) pLse RO,90$ :BRANCH IF ERROR 
08C0 1 0055 28 P1_ERROR REPORT ERROR AND DISPLAY P1 


| 
| 
| 
| 
| 
| 
| 
| 
GET EXPRESSION VALUE | 
| 
| 


SS " 


F 11 | 
ABARAT RMEE mo eneckTIONw csprate aE EC RTECS, PB, 


p : «SBTTL RETURN LENGTH OF STRING | 
p ; ; FSLENGTH = RETURN LENGTH OF STRING | 
p 93 ; THIS LEXICAL FUNCTION RETURNS THE LENGTH OF ITS ARGUMENT AS A DECIMAL STRING. | 
p 99 ; FSLENGTH(STRING) 
° 3 : INPUTS 
p 3 : PIC(AP) = DESCRIPTOR OF STRING. 
p 3 ? : OUTPUTS: 
D 9 : : R1 = STR RING LENG 
p 3 4 : R2 = 0 TO INDiC Rie RESULT IS BINARY 
D 906 ° 
p58 29 : FSLENGTH: ;RETURN LENGTH OF STRING 

D0 0058 2908 MOVL  P1(AP),R1 [GET VALUE TO BE CONVERTED 

D4 OD5C 2909 CLRL = R2 SINDICATE BINARY RESULT 

05 ODSE 2910 RSB 


’ 


6 11 

= LEXICAL FUNCTION PARSE AND EXECUTION & 16-SEP-1984 00:00:36 VAX/VMS Macro v046-00 Pa 3 | 

Lorare SUBSTRING IN STRING. patie t Sy 99:00:76 Yeu SRCILEXICON.MAR; 1 - Say 
p f R.. .SBTTL LOCATE SUBSTRING IN STRING | 
p i 18 * FSLOCATE = LOCATE SUBSTRING IN STRING 
DSF 18 ; THIS S LEXICAL FUNCTION RETURNS THE STARTING POSITION OF A SUBSTRING IN ANOTHER | 
DSF 2917 ; STRING. IF THE G IS NOT CONTAINED IN THE SPECIFIED STRING, THEN THE 
p F 313 ; oENaTa OF THE sPeCiFieD STRING I$ RETURNED. 
p F ; p ; FSLOCATE(SUBSTRING, STRING) 
: F j : INPUTS: 
DSF 4: P1(AP) = DESCRIPTOR OF SUBSTRING. 
Dot 4 5 i P2(AP) = DESCRIPTOR OF STRING TO BE SEARCHED. 
BY : $ : OUTPUTS: 
DSF 29 § : NUMBER INDICATING POSITION WITHIN STRING 
DSF 2930 : a) = = 0 TO INDICATE RESULT IS BINARY 

BB 
DSF 2933 FSLOCATE: LOCATE SUBSTRING IN STRING 
108C OC AC O08 BC 04 aC 39 Op5e 3 4 MAT CHC ti ae ,@P144 (AP) ,P2(AP) AO {SEARCH FOR SUBSTRING MATCH 
53 04 AC (3 OD6A 9 6 SUBL [CALCULATE STARTING ADDRESS OF SUBSTRING 
51 53 10 AC ¢ D6 937 10$:  SUBL3 pea ab) -R3,RI [CALCULATE STARTING POSITION OF SUBSTRING 
524 Op 938 CLRL OR 
05 0075 2939 RSB 


| 
| 
| 
| 
| 
| 
| 
| 
MARK RESULT IS BINARY | 
| 
| 
| 
} 
| 
| 
| 
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4.11 
TION PARSE AND EXECUTION R 16-SEP-1984 00:00:3 AX/VMS Mf v04- 
o-Ep=| 4 Bias LOE LYSRCICERT CON-MAR: 1 san (38) 


; .SBTTL LOGICAL NAME TRANSLATION 
$ FSLOGICAL = LOGICAL NAME TRANSLATION 


; THIS LEXICAL FUNCTION OBTAINS THE TRANSLATION FOR A SPECIFED LOGICAL NAME AND 
3 RETURN THE EQUIVALENCE NAME. 


; FSLOGICAL(LOGICAL_NAME) 
: INPUTS: 
: P1(AP) = DESCRIPTOR OF LOGICAL NAME STRING. 
3; OUTPUTS: 
; R1 = LENGTH OF EQUIVALENCE STRING. 
: R2 = ADDRESS OF EQUIVALENCE STRING. 
FSLOGICAL: ZLOGICAL NAME TRANSLATION 
MOVAB P1(AP),RO [GET ADDRESS OF LOGICAL NAME DESCRIPTOR 
va Rg. (SP) TSAVE EQUIVALENCE NAME DESCRIPTOR 
MOVQ = R2, = (SP) [SET EQUIVALENCE NAME DESCRIPTOR 
L SP. R1 [SET ADDRESS OF EQUIVALENCE NAME DESCRIPTOR 
STRNLOG_S (RO),(R1),(R1) ; TRANSLATE LOGICAL NAME 
MOV -“(SP)+,R1 TRETRIEVE EQUIVALENCE NAME PARAMETERS 
BLBC)3—E.—s«aO0, 90 Z1F LBC TRANSLATION FAILUR 
CMPW ©: #SS$_NOTRAN, RO [DID TRANSLATION ACTUALLY OCCUR? 
BEQL 108 tIF EQL, THEN NO 
ADDL 4#8,SP SRESTORE STACK 
BRB 208 SEXAMINE RESULT 
: TRY AGAIN WITH UPCASED LOGICAL NAME STRING. 
10$: mOVQ  P1(AP),R1 ZCREATE LOGICAL NAME DESCRIPTOR 
BSBW © OCLSUPCASE SUPCASE THE LOGICAL NAME STRING 
MOV = R1, -( SP) [PUT THE LOGICAL NAME DESC ON THE STACK 
MOVL [SET ADDRESS OFF LOGICAL NAME DESCRIPTOR 
MOVAB 8(§P),R1 [SET ADDRESS OF EQUIVALENCE NAME DESCRIPTOR 
STRNLOG_S (ROS,(R1),(R1) ;TRANSLATE LOGICAL NAME 
ADDL #8,S SREMOVE THE LOGICAL NAME DESCRIPTOR 
MOV = (SP) +,R1 SRETRIEVE EQUIVALENCE NAME PARAMETERS 
BLBC «=O séaR SIF LBC TRANSLATION FAILURE 
a] #S$S_NOTRAN, RO [DID TRANSLATION ACTUALLY OCCUR? 
BEQL 308 31F EQL, THEN NO 
: STRIP ESCAPE SEQUENCE OFF EQUIVALENCE NAME STRING. 
20S: STL ai :ZERO LENGTH VALUE? 
BEQL = 4 $ SIF EQL YES 
CMPB ss #27, (R2) [FIRST CHARACTER ESCAPE? 
BNEQ 408 SIF NEQ NO 
ADDL #4,R [POINT PAST ESCAPE SEQUENCE 
SUBL &#4-R TREDUCE LENGTH OF EQUIVALENCE STRING 
BGEG }46=-_-« 4 OF s1F GEQ OKAY 
308: CLRL RT [SET TO RETURN NULL STRING 
40$: RSB ; 


[oRPEEMAREMELLRE anas  eneclr lon e ecseemtegs 909-36 YORU tase eae 


A 


3 LOGICAL NAME TRANSLATION FAILURE 


§ 90s: BRW 


P1_ERROR 


REPORT ERROR AND DISPLAY P1 


on ae 


SD SD 


cD 


i 
! 


ION pease AND EXECUTION & 1975601388 99:00:36 paves Macro v04-00 Page | 


E88 


ANSLAT SEP=19 DCL. SRCILEXICON.MAR; 1 (26) | 
: .SBTTL LOGICAL NAME TRANSLATION | 
; FSTRNLNM = LOGICAL NAME TRANSLATION 
THIS LEXICAL FUNCTION OBTAINS THE TRANSLATION FOR A SPECIFIED LOGICAL NAME AND 
; RETURN THE EQUIVALENCE NAME OR THE REQUESTED ATTRIBUTE. 
; FSTRNLNM (NAME, TABLE, INDEX, MODE, ATTR, ITEM) | 
: INPUTS 
: PI(AP) = DESCRIPTOR OF LOGICAL NAME STRING. 
: P2(AP) = DESCRIPTOR OF NAME OF LOGICAL NAME TABLE TO SEARCH. 
: P3(AP) = INDEX OF THE DESIRED TRANSLATION. 
: P4(AP) = DESCRIPTOR OF ACCESS MODE OF TRANSLATION. 
: PS(AP) = DESCRIPTOR OF TYPE OF TRANSLATION. 
; P6(AP) = DESCRIPTOR OF REQUESTED ITEM. 
: OUTPUTS: 
; R1 = LENGTH OF EQUIVALENCE STRING. 
: R2 = ADDRESS OF EQUIVALENCE STRING. 


FSTRNLNM: LOGICAL NAME TRANSLATION 


4B(R9) Translation attributes 


44(R9) : Attribute bit number: 


40(R9) : Access mode 


Table name descriptor 


| 
| 
Item List created on stack: | 
32(R9) ; 


ay 
‘ : 
re tants :___Translation index 3 
Pi Bueno) Fmd of teem Lists 
rt 20(R9) 12(R9) ; 
31 16(R9) } Scratch buffer descr: 
38 12¢R9) flna$_string! 
$ ms | eee 
$ tC) 28(k9) SS” 
3 (R9) : tnm$_index! 4 
et 


7 
| 
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LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 YVAX/VMS Macro V04-00 Pa 7 | 
reat Loet CAL Liane TRANSL AT OW 4-5 etsy 99:00:36 YOCL SRCILEXTCON- MAR: 1 st (36) | 
DF | 
DF : H | 
+4 3; Allocate and initialize the item List. 
4 C3 DF SUBL  #52,SP ZALLOCATE ITEM LIST ON STACK 
: DO ODF MOVL = SPR ; THE ADDR OF THE LIST 
8 pi DF 8 CMPL Re 2 [CHECK MIN SIZE OF RESULT BUFFER 
69 1 $f D0 Bre 5 ved ; be INDEX@1644, (RO) OR te ITER one! 
04°89 mee A9 DE E : i MOVAL é (ROT, 4(R9) : : 
A A CLRL (R9) : 
C Ag D . D vO R2 H (R9) 
OF Ag 3 B0 3} 7 Vw = #LNM STRING 14(R9) ; 
14 A of A —E 0€1 75 MOVAL } (ROT, 20(R95 : 
AS =7C «(OIA i: CLRQ (R9) : 
aioe aa ae a : 
0 a9 7D £27 8 RO 520 g, : 
8 A9 DO OE2B 80 MOVL  #PSL$C_USER,40(R9) : 
C Ad D4 OFCF 3081 CLRL = 44 (RO) : 
_CASE_BLIND, : 
30 a9 = 02 8F 00 E 2 MOVL §§ #LNMSM_CASE_BLIND,48(R9) 
ESA 4; 
: . 5 ; Set the translation index. 
14 AC DS OE3A Os TSTL P3CAP) :WAS INDEX SPECIFIED? 
05 19 OE3D 88 BLSS 108 [NO, THEN USE DEFAULT 
A AC OO MOVL  P3(AP),28(R9) -SSAVE SPECIFIED INDEX 
10 a9 14 AC 00 eS 89 (AP) ,28(R9 
£44 3091; 
or 85 : Set the item code. 
2C AC £44 3094 10s: TSTL P6(AP) :WAS AN ITEM SPECIFIED? 
36 £47 095 BLSS :NO, THEN USE DEFAULT 
54  O0001FAB'EF £49 %6 MOVAB LOGICAL TABLE.R4 [GEf ADDRESS OF ITEM TABLE 
55 64 £5 97 15$:  MOVZBL (R4),R [GET LENGTH OF ITEM NAME 
15 €5 38 BEQL $ SBRANCH IF END OF TABLE 
55 00 30 8¢ 3¢ At £30 9 CMPCS P6(AP),@P6+4(AP) ,#0,R5,1(R4) [DOES ITEM NAME MATCH 
E 
£6 
£6 
£6 
E 
E 
3 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 


9 100 BEQL 18$ ;BRANCH IF ITEM FOUND 
54 04 A446 1 1 ~~ gene PERS3..R6 sSKIP TO NEXT TABLE ENTRY 
00 1 § 14$: BRW 94$ 3 
6A 3104 198: BRW aos 3 
F § 105 17$: BoW $ 3 
50 01 A445 1 18$: MOVAB Ht be? RO sGET THE ADDR OF THE ITEM CODE 
OE Ad 60 75 (31 Vw = (RO) , 14 (R9) 3SET THE ITEM CODE 
2C Ad s«O3: AGG ' 3 MOVZBL 3(R4SCR51,44(R9) ;SAVE THE ATTR LONGWORD BIT NUM 
7F 110 ; 
of i} 3: Set the access mode. 
1€ AC 7F 11 208: TSTL P4(AP) sWAS AN ACCESS MODE SPECIFIED? 
4 : 114 BLSS 30$ 3NO, THEN USE DEFAULT 
54 sees | wah | 115 MOVAB ACCESS _TABLE,R4 [Get ADDRESS OF ACCESS TABLE 
64 118 25$: MOVZBL (R4),R5 :GET LENGTH OF ACCESS 
07 E 11 BEQL 14$ sBRANCH IF END OF TABL 


+ 
mn 


J 
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LOGICAL NAME TRANSLATION §-§ sats vi 90:00:78 YOCL SRCILEXICON.MARS 1 — (38) 
55 00 20 8¢ it at 2D 3h 3118 CMPCS P4(AP),@P4+4(AP),#0,R5,1(R4)  sDOES ACCESS MODE MATCH 
07 13 OE99 31 BEQL 7$ :BRANCH IF ACCESS MODE FOUND 
54 (02 “ti % c HOVAB Siiess.n ‘SKIP fo NER! FABLE PETRY 
28 AD «01 AGS EA 27$: MOVZBL 1(R4)CR5],40(R9) [SET THE ACCESS MODE 
EAB 3124; 
$A } 5 : Set the table name. 
oe tee gs ae ec ee 
20 a9 «OC AC 7D EA $ MOVQ = P2 (AP) , 332(R9) SSEf SPECIFIED TABLE NAME 
€B 131; 
$8 : § ; Set the tranlation attribute. 
24 aC 0S O&B2 3134 dos TSTL PS5CAP) ;WAS AN ATTR SPECIFIED? 
19 OBS 3135 BLSS 48$ [NO, THEN USE DEFAULT 
54 00002029" EF 9 O0€B7 31 6 MOVAB LOGATTR_TABLE.R4 [GEf ADDRESS OF ATTR TABLE 
5 6460 COSA EBE 137 45$ MOVZBL (R4),R5 [GET LENGTH OF ATTR NAME 
26 13 OECI 31 8 BEQL 95$ [BRANCH IF END OF TABLE 
55 00 28 8¢ 24 AC 2D ECs 1 CMPCS P5(AP),@P5+4(AP),#0,R5,1(R4)  :DOES ATTR NAME MATCH 
07 13 OECC 3140 BEQL 47% ;BRANCH IF ATTR FOUND 
54 05 A645 % ECE 141 MOVAB 3 (R4)ER5I.R4 :SKIP TO NEXT TABLE ENTRY 
50 01.0465 9E OEDS 128 47$ MOVAB 1(R4)CRSI,RO [GET ADDR OF ATTIBUTE CODE 
30 a9 60 06 EDA 3144 MOVL (RO), 48(R9) [SET THE ATTRIBUTE 
1 EDE 145 48$: BRW 50$ : 
fey 3102 ; 
3 148 ; Signal all errors. 
52. 1C aC 9 EE! 130 $4s: MOVAB P4(AP) ,R2 
5226 at H EE? 138 95$: ROVAB 3 CAP) .R2 
52. 2C AC EED 3154 96$: MOVAB P6(AP),R2 
EF1 3155 961$: STATUS 1 KEYW 
SE 3409 9E OEF8 136 MOVAB (R9) , SP 
0738 «(31 eFC 3 BRW PN_ERROR 
34 A9 9 EFF 136 97$: MOVAB 52(R9),SP 
0706 F i 160 BRW BUF OVF 
50 0000" BF 8} F 6 168 90$ cpu #S$8_BUFFEROVE .RO 
SE 34 A Hi FOD 3164 MOVAB 52(R9),SP 
O6F F ay 165 BRW ERROR 
0088 31 «OF14 189 51$: BRW 80$ 
Fp 3180 
at 1%6 : Perform the translation. 
F17 3172 50$:  STRNLNM_S ATTR=48(R9),- ; TRANSLATE THE LOGICAL NAME 


j 
| 
 eneenensesn 
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LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 :36 VAX/VMS Macro V04-00 Pp 9 
riety LOBTCAL HARE FRAMSL AT TOM yaa at bet me rsh Pee yt ae age 53) 
F1 173 TABNAM=32(R9) ,= : 
FY te LOGNAR=P (AP) c= : 
Fi 175 MODE=40(R9) ,- : 
F1 176 iA ST=(R9) : 
50 0000'°8F 2 F 17 CMPW ii _NOLOGNAM,RO ‘DID TRANSLATION ACTUALLY OCCUR? 
F 178 BEQL ‘IF NEQ, TH HEN RETURN NULL STRING 
dO E F 1 4 BLBC ,90$ s1F LBC, THEN ERROR 
F 181 ; 
: ! gi 3; Return requested information 
02 OE A9 8 F 184 0S: CMPW 4(R9) ,#LNMS_STRING :WAS TRANSLATION REQUESTED? 
4B FSA 3185 BEQL ‘YES, THEN GO RETURN 
06 OF AD B81 OF 1 $ CMPW =: 14(R9) , #LNMS_ TABLE :WAS TABLE NAME REQUESTED? 
45 13 OF40 31 BEQL sYES, THEN GO RETURN IT 
07 OF AD «Bi (OF42 «31 g CMPW = s-14(R9) , #LNMS_MAX_INDEX *WAS INDEX REQUESTED? 
37 13) «OF46 318 BEQL 69% :YES, THEN GO RETURN IT 
0S OF a9 8 rae 190 CHU 14(R9) ,#LNMS_LENGTH WAS LENGTH REQUESTED? 
06 OF AD Bi a 198 CMPW =: 14(R9) , #LNMS_ACMODE [WAS ACCESS MODE REQUESTED? 
11 #13 OFS2 319 BEQL 66% sYES, THEN GO RETURN IT 
Fee 3198 
OF54 196 ; Return requested attribute. 
51 Ds OF54 3198 ° CLRL eR SASSUME FALSE 
021089 2¢ a9 et F396 199 BBC 44(R9) ,@16(R9) ,65$ SBRANCH IF FALSE 
34 AD «SEO 301 65$: MOVAB 52(R9),SP SRESTORE THE STACK 
081D «31 Fé 0¢ BRW FORMAT_BOOLEAN SRETURN BOOLEAN STRING 
F65 3204 ; 
4H 05 : Return access mode. 
52 0000204C'EF 96 OF65 $$ ies: MOVAB ACCESS TABLE. R2 :GET ADDRESS OF ACCESS TABLE 
50 10 B9 9A F6¢ 08 ROVZBL 9ig( (ROT,R 36ET ACCESS MODE CODE 
52 Qt A241 -9E Fg 10 673: MOVAB 1(R2)CR1),R2 ‘SKIP TO NEXT TABLE ENTRY 
82 9A OF7 11 68S: MOVZBL (R2)+,R1 3GET LENGTH OF ACCESS MODE 
F550 F4& OFZA 1g SOBGEG RO,67$ 
25 11 F2D 13 BRB 85§ ZRETURN THE SPECIFIED VALUE 
F7F 15 : 
4s 1g: 3; Return max index or length. 
51 10 89 DO OF7F 18 os:  MOVL «= 169), RI :GET THE INDEX 
2 D4 OF 1 CLRL OR : 
1D 11 «OF 9 BRB 85$ : 
FB? 
: i § : Strip escape sequence off and return equivalence name string. 
OE A9 B4 F87 5 70S: CLRW =: 14(R9) y REMOVE THE ITEM CODE 
51 OC ad FBA 3 MOVQ 12(R9),R1 :GET RESULT DESCRIPTOR 
51 03 F TSTL =e RV : ZERO ERNE VALUE? 
ne F 6 § BEQL 83s SIF EQL YES 
62 18 91 OF9 CMPB 0s #27, (R2) SFIRST CHARACTER ESCAPE? 


N11 
x = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro v04-00 Page 70 
ibn $00 LOGICAL NAME TRANSLATION AND EXECUTION R 16-$e pm 138¢ SO:09:36 YAX/VaS Macro YOK 00 oe 
12 OF NEQ 4 :1F NEQ NO 
52 2 C 3? tit #82 ‘SOINT PAST ESCAPE SEQUENCE 
4 \ FOA SUBL  #4-R SREDUCE LENGTH OF EQUIVALENCE STRING 
5 F9D BGEG }3=s«85§ SIF GEQ OKAY 
1 D4 OFSF 4 80$: CLRL RI [SET TO RETURN NULL STRING 
52 H D0 OFAl 5 MOVL SF R2 : 
SE SGA 3E FAG 6 85$:  MOVAB 52(R9),SP SRESTORE THE STACK 
05 OFA8 3237 RSB ; 


ee | 


8 12 , 
TION PARSE AND EXECUTION R 16-SEP-1984 AX/VMS Macro v04-00 Page 71 
EXqon PARSE AND EXECUTION R VPSEP=1984 OSi4i se) EDCLYSRCILEXICONCMAR; 1 2908 (20) 
39 | 


ee .SBTTL GET MESSAGE TEXT 
4] ; FSMESSAGE - GET MESSAGE TEXT 

‘§ : THIS LEXICAL FUNCTION OBTAINS THE MESSAGE TEXT ASSOCIATED WITH A MESSAGE CODE. 
45 : F SMESSAGE (CODE) 

‘ > INPUTS: 
i : P1(AP) = MESSAGE CODE 
$2 
3g 
54 : 
33 
26 
og 
59 
60 
61 
62 


Ss a 
—f 

nm 
zx 
"> 


>r 
3] 
mw 


OUTPUTS: 


Ri = LENGTH OF MESSAGE TEXT STRING. 
R2 = ADDRESS OF MESSAGE TEXT STRING. 


COOCCCOCOOOOOOOOOOSoOOOSoCoOoOoOO Me 


te De te a Bas Bn Bes Bs ns a a a a mca a a a a a a a a) a 
QOOP>r>rrrrrrrrrrrrrrrr,rrr,r 
fF NFMOODOOOVOOOVOVOOOOJOOwowoo 00 


F SMESSAGE: GET MESSAGE TEXT 
7E 52 7D MOVQ R2,-(SP) SET MESSAGE BUFFER DESCRIPTOR 
50 SE 00 MOVL SP,RO SET ADDRESS a MESSAGE BUFFER DESCRIPTOR 
SGETMSG_S P1(AP),(RO),(RO),#15 ;GET MESSAGE TEXT 
51 BE 4 + bh (SP)+,R1 RETRIEVE MESSAGE TEXT PARAMETERS 


see ee a CC CCC CC CCL LL LLL LLL 


¢ 12 | 
EXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 90:00: 36 VAX/viNs Macro v04-00 Page B 
RETURN JOB MODE 4=SEP=1984 23:41:41 CDCL.SRCILEXICON.MAR; 1 28) 
FC $4 -SBTTL RETURN JOB MODE 
FCO 3266 ; FSMODE = RETURN JOB MODE | 
FC 68 ? THIS LEXICAL FUNCTION RETURNS A STRING THAT IS EITHER INTERACTIVE" OR "BATCH" 
Fe $ ; DEPENDENT ON THE JOB MODE. | 
FC 7 : FSMODE () | 
FC 7 : INPUTS: | 
FC 03 i : NONE. | 
FC 2 : OUTPUTS: 
FC 8 ; = LENGTH OF JOB MODE DESCRIPTION STRING. 
FC 80 : RD = ADDRESS OF JOB MODE DESCRIPTION STRING. 
4: 81 :- 
FES $588 FSsmove: RETURN JOB MODE | 
7E «7C FCS 84 CLRQ 0 =( SP) :RESERVE, 10S 
7E 7C OFC 5 CLRQ = =(SP) :MARK END OF LIST, NO RETLEN 
FB AE OF OFC9 86 PUSHAB =2#4(SP) 3SET BUFFER ADDRES 
03220004 a Dp aoe 387 PUSHL #PIS_ MODEQ26+4 REQUEST MODE 5p 58 sBUFFER LENGTH 
OFD 89 ScLTuPIw S_ATMLST=(RO) - [GET MODE LONGWORD | 
FDS 90 TosB=1 ; 
FDS 3291 EFN=#EXESC_SYSEFN : 
27 50 £9 OFED 3 BLBC R0,50$ SIF LBC SERVICE FAILURE 
50 10 AE 3C OFFO 309 MOVZWL 16(SP),RO GET STATUS FROM 10SB | 
2050 «9 OFFS 34 BLBC _—RO, 50$ [IF LBC SERVICE FAILURE 
534 ores 96 CLRL RB :SET LOOP INDEX | 
52. Q00021F3"EF 9E OFF9 3297 MOVAB MODE_TABLE,R2 GET ADDRESS OF MODE TABLE 
51 82 9A 1909 98 258: MOVZBL (R2)?,R1 GET LENGTH OF MODE 
0— 13 100 299 BEQL 40S SBRANCH IF END OF TAB LE 
53 6E D1 1005 3300 CMPL (SP), R3 [1S THIS THE ONE WE WANT? 
09 13 1008 3301 BE [YES, THEN RETURN THE A TRING | 
52. 01 alse 9€ 1008 302 MOVAB 1(R1)CR2].R2 : SKIP TO NEXT TABLE ENTRY 
53 06 100F 330 INCL RB SINCR LOOP INDEX 
—éD (11 1011 04 BRB 25$ : 
| 
SE 18 CO 1313 06 40$: ADDL #6*4,SP :DEALLOCATE GETJPI ITEM LIST AND 10SB 
oan a 
SE 18 £0 1017 3309 50$: ADDL #6%4,SP :CLEAN STACK 
OSF6 31 «101A 3310 BRW ERROR SREPORT ERROR IN FUNCTION | 
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rare PARSE A FILE SPECIFICATION pat et 9 99:90:36 LOCL SRCILEXTCON-MARs 1 . (29) | 
JOID 3312 SBTTL PARSE A FILE SPECIFICATION | | 
VOID 3316 ; FSPARSE = PARSE A FILE SPECIFICATION | 
101D 1 : THIS FUNCTION PERFORMS A SPARSE SYSTEM SERVICE RETURNING THE 
1p : ENTIRE (OR OPTIONALLY ONLY PARTS OF THE) EXPANDED FILESPEC. | 
1010 19 ; INPUTS: | 
Py 
101D 1: P1(AP) = PRIMARY FILESPEC | 
101D ; : P2(AP) = DEFAULT FILESPEC 
101D : P3(AP) = RELATED FILESPEC (FOR TEMPORARY STICKYNESS) 
101D 4: P4(AP) = NAME OF A FILESPEC FIELD 
101D 5: IF NOT SPECIFIED, THE ENTIRE FILESPEC IS RETURNED. 
1 $ ; PS(AP) = TYPE OF PARSE (ITEM LIST) 
1p : : P2,P3,P4, AND PS ARE ALL OPTIONAL (INDICATED BY A <1 IN THE FIRST LONGWORD) 
1940 p : OUTPUTS: 
101D : : R1/R2 = DESCRIPTOR OF EXPANDED FILE SPECIFICATION 
11D 3334 ° 
101D 3 5 FSPARSE 
7E 52 7D 101D 36 MOVQ = R2, = (SP) :PUSH DESCRIPTOR OF SCRATCH BUFFER 
59 SE 00 192 33 MOVL : “SAVE ADDRESS OF DESCRIPTOR 
SE FDFI CE 9E 10 a MOVAB =NAMSC_BLN-FABSC_BLN-NAMSC_MAXRSS-NAMSC_BLN(SP) SP ; ALLOCATE STORAGE | 
6— O20F BF 00 6€ 060 2¢ 108 39 MOVCS #0,(SPY,#0,#FABSC_BLN+NAMSC_BLN+NAMSC_MAXRSS#NAMSC_BLN, (SP) ;ZERO ST. 
57 3E DO 10 40 MOVL *R?7 3GET ADDRESS OF NAM | 
56° 60 A? 9E 103 41 MOVAB NAMSC_BLN(R7) .R6 [GET ADDRESS OF FAB 
103 4g ASSUME FABSB~BLN EQ FABSB_BID+1 | 
66 5003 8F BO 1037 334 MOVW #FABSC_BID+<FABSC_BLN@S>,FABSB_BID(R6) ; INITIALIZE FAB 
103¢ 44 ASSUME NAMS$B_GLN EQ NAMSB BID+ | 
67 6002 8F 80 105¢ 43 MOVW  #NAMSC_B1D+<NAMSC_BLN@8>,NAMSB_BID(R7) ; INITIALIZE NAM | 
1041 ‘3 : VALIDATE PARSE TYPE PARAMETER LIST, IF ANY 
24 AC DS 1041 3349 ° TSTL  PSCAP) SPARSE TYPE SPECIFIED? | 
67 19 44 20 BLSS 188 SIF NOT, SKIP BIT SETTING | 
7E 58 00 1046 3g MOVL  RB,-(SP) :SAVE R8,R10,R11 | 
7E 5A 7D 1049 335 MOVG R16,-(SP) ; 
54 24 AC 7D 106 54 MOVO P5(AP),R4 [R4/RS = ITEM LIST DESCRIPTOR 
5894 2 35 CLRB RB SASSUME ONLY 1 ITEM IN LIST 
oe HOR RHR RE rm tr cn || ERROR eget en 
D 13 39 39 a oh :CHECK TABLE NOW IF ONLY 1 ITEM IN LIST | 
s2 548 OES 08R 8803 Ayers RO-RGR2 PUP ICATE AY LESET OE Mae TEN MO AiST 
4 70 Se 1 61 6 MOVAB (RO) -R4 [STRIP CURRENT ITEM FROM LIST | 
55° O1Al 9F€ ‘ 64 MOVAB 1(R1).R5 ; | 
5A 00001669°EF 9E 1 $ MOVAB PARSE_TYPES,R10 :R10 = ADDR. OF PARSE TYPES TABLE | 
(R10) 7R11 ?R11 = LENGTH OF THIS PARSE TYPE | 
ot 4 1 $f $3 7 + a cai [HAVE INVALID KEY WORD IF AT TABLE END 
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a St CH TET Tae _ 
MOVQ R2, =( SP) :SAVE ITEM LENGTH AND ADDR. 
CMPCS Ravn) :CHECK CURR. ITEM AGAINST TAB. ENTRY 
BEQL «ss 128" ;1F MATCH, SET BIT IN NAMSB_NOP FLAG 
MOVa = (SP) +, R2 FRE TORE ITEM LENG. AND ADD 
MOVAB gcRIOSCRI13 R10 Rid OF NEXT TABLE ENT 
BRB % cE NECK Ten AGAINST NEXT TABLE RENTRY 
MOV = (SP) +, R1 ZRESTORE WORK REGISTERS 
MOVL (SP)+.R8 ; 
STATUS VRE YU S INVALID KEYWORD 
BRW P5_ERROR 'GOTO ERROR HANDLER 
MOVQ (SP)+,R2 *HAVE MATCH. FIRST RESTORE ITEM REG. 
B1SB Verio ER11], NAM$B_NOP(R75 -SET CORRESPONDING BIT 
BBSC =: #0, RB, 5S sCHECK NEXT ITEM IN LISTCIF ANY LEFT) 
MOVa (SP)+,R10 ZRESTORE REGISTERS 
MOVL  (SP)+.R8 ; 


VALIDATE NAME OF FILESPEC FIELD 


TSTL P4 (AP) 
B 19$ 


MOVAB PARSE_FIFLDS,R4 
(R4) RS 


CMPCS + @P4+4(AP) ,#0,- 


1(R4) 


BEQL 80$ 
MOVAB (R4)CR5],R4 
BRB 00$ 
STATUS IVKEYW 
4 ERROR 


MOVZBL (R3)+,R5 
PARSE FILE SPEC. 


MOVL  R7, FABSL_NAM(R6) 
SETBIT FAGSV_PPF,FABSL_FOP(R6) 


ACAB) PABSL. FNS(R6) 


MOVB so P'1 
MOVL  P1+4(AP) 

TSTL P2CAP) 

BLSS 208 

MOVB P2(AP),F 

MOVL P tatABD AE 
TSTL PSAP) 

BLSS 25$ 

MOVAB. FABSC_B 
ASSUME NAM $58 

MOVW «= ANAS “Bips< 
MOVB AP) 7NAMSB 


MOVL ray NARSL 


PARAMETER. 


sFIELD SPECIFIED? 
F NOT RETURN ENTIRE EXPANDED STRING 
:GET ADDRES E 


;BRANCH F 
;DOES ITEM NAME MATCH? 


;BRANCH IF _ITEM FOUND 
;SKIP TO NEXT ENTRY IN TABLE 
: LOOP UNTIL FOUND 

UNDEFINED ITEM NAME 


ET TO FIELD LENGTH 
‘GET OFFSET TO FIELD ADDRESS 


;SET POINTER TO NAM BLOCK 
3USE PROCESS 1/0 SEGMENT (S 
MAY NOT BE ANY IMAGE I/ 
3STORE PRIMARY NAME STRING 
sP2 en it cet 
RANCH IF NOT 
STORE DEFAULT NAME STRING INTO FAB 


3P3 SPECIFIED? 


NAMSC_MAXRSS(R&S) .RO TADDRESS OF RELATED NAM 
0 NAMSB_BID+1 


>,NAM$B_BID(RO) INITIALIZE RELATED NAM 
SINITIALIZE RELATED FILESPEC 


Se - ~y 


fF 12 
ON” EMECUT LOM Nene mT OBE Seiet set EDR ERC TERT Coe Maes 1 Page o8) 


19 A7 1118 a RO, NAMSL gRhE ih?) :POINT TO RELATED NAM BLOCK 
AA 111F 25$: MoV fhast. MAXRSS ,NAM$B_ESS(R7) SET $i E OF EXPANDED BUFFER | 
11246 MOVAB ABSCABLNCR D NAMSL TES A(R?) “SET ADDRESS OF RESULT BUFFER 
1 SPARSE SETUP EXPANDED NAME STRING, than FIELDS 
11 7 (SUCH AS FID,DID,DVI,ESL) 
93 L 8 11 BLES 0 028 ‘BRANCH IF OK 
A 6 11 CLRB 2 sNNA 8 ESL(R7) sRETURN NULL ON ANY PARSE ERRO 
51 08 A 11 28$ MOVZBL #NAMS$B_ESL,R1 SASSUME USING ENTIRE EXPANDED STRING 
2 0c 9A 11 MOVZBL #NAMSL“ESA.R2 
1¢ aC 5 11 TSTL P&C(AP) SFIELD SPECIFIED? 
Q 19 11% BLSS 408 [IF NOT, RETURN ENTIRE EXPANDED STRING 
51 54 7D 114 MOV =s_-RGLR GET OFFSET TO FIELD LENGTH ADDRESS | 
51. 6741 9A 1146 40$: MOVZBL (R?)CR1),R1 [GET LENGTH OF EXPANDED STRIN 
52 27 CO 114A ADDL é [GET ADDRESS OF EXPANDED STRING ADDRESS | 
6 1 01 114 CMPL = R17. (RD SENOUGH ROOM FOR STRING? 
f TA 115 BcTRU 608 ‘BRANCH IF NOT | 
71 oD 11 PUSHL 1 TSAVE REGISTERS 
0489 0082 51 28 11 MOVC R1,a(R2),@4(R9) ‘COPY INTO SCRATCH BUFFER 
; BEDO 115A POPL R3 [SAVE LENGTH OF EXPANDED STRING | 
30 A? DS. s115D TSTL © NAMSL_WCC(R7) ‘DID RMS SAV VE NY INTERNAL CONTEXT? 
10 13 116 BEQL 30 [BRANCH IF 
116 ASSUME FABSB_DNS EQ FABSB_FNS+1 
3406 B4 116 CLRW  - FABSB-FNS(R6) SET PRIMARY /DEF AULT FILESPECS TO NULL 
116 SETBIT NAMSV-SYNCHK ,NAMSB_ NOP(R?). :SET SYNTAX ONLY CHECK FLAG 
1169 SPARSE FAB=(R6) ; TERMINATE YUILOCARD SEQUENCE TO GET RMS 
11 [TO DEALLOCATE INTERNAL CONTEXT STORAGE 
51 53 pO 117 50$: MOVL  R3,R1 [GET LENGTH OF RESULTANT STRING 
52° 04 09 DO 117 MOVL  4(R9),R2 SET SODRESS OF STRING 
5E 4208 AD) «(O9E «C1179 MOVAB 8(R9).SP SDEALLOCATE STORAGE 
an we 
0488 31 117 60$: BRW BUF OVF ;REPORT BUFFER OVERFLOW 
| 
| 
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6.1 
PARSE AND execoT ION R 16-SEP- 


RO, #SS$_NOPRIV 
RO, #SS$_NOMOREPROC 
80$ 


P1(AP) .R3 
PRC_Q_LOCAL(R11) RS 
#SYR_R_BINARY ,RO 


19be 98:28:29 EDEL YSRCHERTcONcman:1 =| P88" (38, 
: .SBTTL GET NEXT PROCESS ID | 
; FSPID = GET NEXT PROCESS ID 


THIS FUNCTION PERFORMS A WILDCARD GETJPI F 
NEXT PROCESS PID IN SEQUENCE, GIVEN THE WILD 


FSPID( CONTEXT SYMBOL) 


UNCTION TO RE 
CARD CONTEX 


— 
3 
2 
“ 
= 
mm 


:RESERVE 10SB8 
'CLEAR LAST ITEM AND RETLEN ADDRESS 
SADDRESS TO RECEIVE PID 
C FLEN 

T LONGWORD OF <1 (BEGIN) 
F SYMBOL NAME 
YMBOL TABLE 
OUND SEARCH FROM BEGINNING 
TART SEARCH AT BEGINNING 
{Tt MUST BE SET FOR VALID PID CTX 
T OK, START SEARCH AT BEGINNING 
é ONTEXT LONGWO 


C RD ON STACK 
DRESS OF CONTEXT/ITEM LIST 
XT PID IN SEQUENCE 


Bete Ge Ge Se Se Se Ge Ge Ge Ge Se Se Se 


BRANCH IF ERROR 

sFETCH STATUS FROM IOSB 
BRANCH IF NO ERROR 

NO PRIVILEGE TO GET INFO? 
TRY ni} cyeceee 


D ON THIS INVOCATION 
T GWORD 


YMBOL NAME 
MBOL TABLE LISTHEAD 
ONGWORD 


QADDBIOWwNWO Ds 
mmm—mmmnmns 
6 ON 4 
Z>o PozZzD 
-~ 
oO mitt +4 
mm 


+3 
2o- 


=m 
mm 


we at 


00000000 ' EF ig 


F ude $f 


CAL F 
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30$: 
80S: 


ass 


ADOL 
BRW 


DCLSCBTA_HEX 


#7*4,SP 
P1_ERROR 


7 CLEAN 
;REPORT 


CAL FUMeT OW PARSE ano execUrlEN R 16-Sep-1984 0:00:56 YAR/VAS agro 04-00 


sCONVERT PID TO STRING AND EXIT 


STACK 
ERROR AND DISPLAY P1 


| 
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1.1 
JON PARSE AND EX ction R 16-SEP-1984 00:00:3 AX/VMS Macro v04-00 Pa 8 
JED PRIVS ARE Set OR CLEA 735-198 Bia tek. SRCILEXICON.MAR; 1 We (31) 
«SBTTL CHECK IF SPECIFIED PRIVS ARE SET OR CLEAR 


FSPRIVILEGE - CHECK IF SPECIFIED PRIVILEGES ARE SET OR CLEAR 


EE 


~> 
rc 


or 
=x 
mr 
am 
Rx 
to 
—— 
wo 
un 
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C 
121 
121 3 
121 : 
18 $850: 
121 ; HAS A GIVEN SET OF PRIVILEG FF, DEPENDING ON T HE KEYWORDS GIVEN. 
101 : TH ARGURENT IS A COMMA SE OARATED LIST OF PRIV ILEGE aE ywor T WHICH 
121 ; CALL LLER IS INTERESTED. IF THE PREFIX "NO" THe KEVUORD 
121 : THE FUNC ion CHECKS IF THE PRIVILEGE IS OFF. OTHERWISE TH FUNCTION CHECKS 
121 1: THE RIVILEGE 1s ON. THE FINAL VALUE OF THE FUNCTION IS THE ‘‘AND™ | 
121 3 ALL OF PRIVILEGE CHECKS = THAT IS, IT RETURNS TRUE IF ALL THE PRIVILEGES | 
3 ARE or NE SPECIFIED. 
5: FSPRIVILEGE (PRVSTATES) 
1210 35 ; + INPUTS: | 
i 1 335 : PI(AP) = DESCRIPTOR OF A COMMA SEPARATED LIST OF PRIVILEGE KEYWORDS. 
541 : OUTPUTS: 
3¢8 : R1/R2 = BOOLEAN TRUE OR FALSE STRING | 
121 545 ° 
121 346 FSPRIVILEGE: | 
56 53 00 1210 354 :GET ADDRESS OF SCRATCH QUADWORD 
248 SSETPRV 3 PAVPRV=(R6D, - 3GET CURRENT PERMANENT PRIVILEGES 
7D 1 550 MOVQ = P1(AP) , RG IGET DESCRIPTOR OF COMMA SEPARATED LIST 
ats 54 7D 1 $ 551 10S:  MOVQ R4,R2 : NO COMMA N 1ST 
65 3a 33 LOCC} 3=—«_-s #*A", * , RG, (RSD LOCATE END OF NEXT KEYWORD 
13 122D 33 BEQL 208 [BRANCH IF NOT FOUND, USE ENTIRE STRING | 
52 54 C3 120F 54 SUBL3 RR R4 Re 3 ISOLATE NEXT KEYWORD 
4 § 9 1233 3555 208: MOVAB -(RO)-R :CHOP KEYWORD OFF STRING 
5° O1Al 9E 1236 336 MOVAB 1(R1)_R5 
7E 52 7D 123A 355 V R2,-(§P) :PUSH DESCRIPTOR OF KEYWOR 
7E DF 1230 3558 PUSHAL -(SP) [PUSH ADDRESS OF WORD TO ET BIT NUMBER 
08 AE 9F 123F 3559 PUSHAB &(SP) [PUSH ADDRESS OF DESCRIPTOR 
00000000 ' GF FB 1 4g 360 CALLS 4#2,G* PRVSPRIVBIT SLOOKUP KEYWORD AND GET PRIV. BIT # 
BA 124 61 POPR #*M<R1,R2,R3> [CLEANUP STACK 
1F 6 E9 1248 36¢ BLBC ~=—_—«RO, 70 Sif ERROR, SIGNAL IT 
4F4E 8F 81 1266 356 CMPW 36s (R$) , #*A"NO® 18 KEYWORD NEGATED? 
3 1253 3564 BEQL © 308 [IF SO, CHECK IF PRIVILEGE OFF 
OF 66 «51 a ; ; 5 BBC Ri, (R6) ,508 [BRANCH IF PRIVILEGE NOT ON 
09 66 «651 «£0 «(1258 «356 308: BBS R1, (R6) , 50S :BRANCH IF PRIVILEGE NOT OFF 
4 05 125F 368 40$: TSTL R4 ZANY MORE KEYWORDS LEFT? 
; tt 6} 36 BGTR 108 SIF NOT, LOOP UNTIL DONE | 
51 0 20 126 0 MOVL #1,R1 TRETURN SUCCESS | 
en $8 4 BRB «608 | 
51 ps 126 73 50$: CLR R1 RETURN FAILURE ‘ | 
0515 31 6A as 60$:  BRW FORMAT_BOOLEAN SRETURN TRUE’ OR "FALSE | 
000000'8F 1 76 70$ CMP #PRVS_NOTUNQ, RO :AMBIGUOUS KEYWO 
mo eS 9 1 $ 58 BN NEG 4 il NOT, EXIT wine INVALID KEYWORD | 
1276 3578 STATUS ABKEYW T AMBIGUOUS KEYWORD ERROR | 
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K 1 
ee cee execbrlon k epi 15ee 88:28:zF Oe HERecOncmans: «= PA8® (89, 
- «SBTTL RETURN PROCESS NAME 
@ ; FSPROCESS - RETURN PROCESS NAME 


; Fags penicne FUNCTION OBTAINS THE CURRENT PROCESS NAME AND RETURN A DESCRIPTOR 


+ 


FSPROCESS() 


Re = LENGTH OF SCRATCH BUFFER. 
R35 = ADDRESS OF SCRATCH BUFFER. 


: OUTPUTS: 
; R1 = LENGTH OF PROCESS NAME. 
F 


0 R2 = ADDRESS OF PROCESS NAME. 
4 SPROCESS: ;RETURN PROCESS NAME 
4 CMPL 6s #15, R2 [BUFFER BIG ENOUGH TO HOLD PROCESS NAME? 
5 BGTRU 208 [BRANCH IF NOT 
6 CLRQ. = = (SP) SRESERVE 10SB 
CLRL 0s = (SP) [CLEAR ITEM ID OF LAST ITEM 
8 PUSHAB -12(SP) [PUSH ADDRESS TO STORE LENGTH 
9 MOVQ = R2, = (SP) [PUSH OUTPUT BUFFER DESCRIPTOR 
0 MOVW  #JPI$_PRCNAM,2(SP) [SET PROCESS NAME IDENTIFICATION 
1 MOVL ‘SP, [SET ADDRESS OF ITEM LIST 
: SGETJPIW_S ITMLST=(RO),- [GET PROCESS NAME 
TOSB=16(RO),- : 
4 EFN=#EXESC_SYSEFN : 
5 BLB RO, 10$ TIF LBC SERVICE FAILURE 
3 MOVZWL 16(SP),RO :GET STATUS FROM I0SB 
10$:  MOVa  (SP)+,R1 SRETRIEVE PROCESS NAME PARAMETERS 
8 MOVZWL R1,R1 [CLEAR ITEM ID 
9 ADDL  #4*4 [CLEAN OFF STACK 
p BLBC RO, 368 [BRANCH IF ERROR 
; 208: BRW BUF OVF SREPORT BUFFER OVERFLOW 
0$: BRW ERROR SREPORT ERROR IN RO 
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AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro V04-00 2 

EC yaks et rat Bs ra eA eet oe age 
.SBTTL GET NEXT WILDCARD FILESPEC 

 FSSEARCH = GET NEXT WILDCARD FILESPEC 


THIS FUNCTION INVOKES THE SSEARCH SYSTEM SERVICE T0 RETURN THE NEXT 

FILESPEC IN SEQUENCE GIVEN THE WILDCARD CONTEXT. IF THE EXPANDED 

NAME st Witd TED 
| 
| 


ea ett 


L FUN 
ILD 


xe 
on 
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= 
“2 
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—_ 
man 
om 
wom 
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F 


RING IS NOT THE EXPANDED NAME STRING IS CONVER 
INTO A RESULTANT NAME BTR iN Ne. 


FSSEARCH(ENM, STREAM_ID) 


PTOR OF EXPANDED NAME STRING 
AL BINARY STREAM IDENTIFIER, DEFAULTS TO 0 


ow 
Bee 


OUTPUTS: 
R1/R2 = DESCRIPTOR OF RESULTANT FILESPEC 


FSSEARCH: 
SEARCH THE LIST OF SEARCH CONTEXT BLOCKS FOR THE REQUESTED STREAM. 
THE CONTEXT IS MATCHED BASED ON A USER SPECIFIED 32-BIT BINARY NUMBER. 


EACH CONTEXT BLOCK HAS THE FOLLOWING FORMAT: 


LONGWORD POINTER TO — BLOCK, 0 MEANS END OF LIST 
LENGTH OF THIS BLOCK YT 
FAB BLOCK (FABSL_ CTX. CONTAINS THE USER STREAM IDENTIFIER, P2) 


NAM BLOCK 
EXP ANDED NAME STRING BUFFER 
RESULTANT NAME STRING BUFFER 
PRIMARY FILESPEC BUFFER 


ON OUTPUT FROM THIS PARAGRAPH: 


PADUA Be EE EEE 


Bete Ge Se Ge Ge Ge Ge Se Sete Se Se Se Sse Ge Se tete WH Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Se Se Sete 
t + 


eS eh eed ed ae et ek Rab a et a tt a A tt tt ts tt tt 


66 RG = ADDRESS OF CURRENT CONTEXT BLOCK, IF FOUND 
664 R7 = ADDRESS OF PREVIOUS CONTEXT BLOCK IN LINKED LIST 
50 00A0 CB 00 666 MOVL PRC_L_STACKPT(R11),RO_ GET ADDRESS OF CURRENT INDIRECT FRAME 
6440 9 B 366 MOVAB IDF L~SEARCHCTX(ROS,R7 :GET ADDRESS OF LISTH 
56 6 p c % 8 10$: MOVL (R7T,R6 [GET ADDRESS OF NEXT CONTEXT BLOCK 
F BEQL [BRANCH IF CONTEXT NOT FOUND 
20 a6 «OL at D1 1 0 CMPL P2(AP),FABSL_CTX+8(R6) DOES THE STREAM IDENTIFIER MATCH? 
9 13 6 71 BEQL «=s«15$ 3BRANCH IF CONTEXT FOUND 
57 56 00 a MOVL R6 R7 :SKIP TO NEXT BLOCK IN LIST 
ef 11 8 i BRB 10$ SAND CONTINUE SEARCHING 
D 3675 : CONTEXT BLOCK FOUND IN LIST. IF THE INPUT FILESPEC HAS CHANGED, 
4 o7¢ : THEN RESTART THIS STREAM WITH NEW FILESPEC. 
z M6 o9E D 678 15$:  MOVAB 8(R6),R5 7SET ADDRESS OF FAB 
AS 9E 1 44 MOVAB FABSC_BLN(RS) .Ré :SET ADDRESS OF NAM 
AS OA 3 80 MOVZBL FABSB~FNS(R5).RO [GET SIZE OF PREVIOUS FILESPEC 
AC DS 681 TSTL PICAPT [NULL STRING? 


“a 
M12 
LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macro V04-00 Page 
rire GET NEXT WILDCARD FILESPEC ats a A Bs rae eA et a . %, 
13° 12FC BEQL 178 :YES, THEN CLEAN UP AND EXIT 
06 aC 00 2C 85, oF 20 i af 388 CMPCS RO, @FABSL_FNACRS),#0,P1(AP),@P144(AP) ;SAME FILESPEC? 
| 
ei 12 1 684 BNEQ $ r1F NOT RESTART SEARCH SEQUENCE 
00 9 ; 1309 6 5 BRW $ ZELSE ont WHERE WE LEFT OFF | 
As 31 ‘ 6 : 17$ BRW $ *CLEAN UP Hg Ett 
138F 368 | 
130F 36 § : THE CONTEXT WAS NOT FOUND AMONG THE EXISTING CONTEXT BLOCKS FOR THIS 
130F 3690 : INDIRECT LEVEL. CREATE A NEW CONTEXT BLOCK BY PARSING THE INPUT 
F 691 : FILESPEC, P1, AND INSERTING THE CONTEXT BLOCK INTO THE LIST. 
51 0385 BF 35 130F $36 20$: MOVZWL #8+FABSC_BLN+NAMSC _BLN+<3sNAMSC MAXRSS>,R1_ ;SET SIZE OF BLOCK 
off 6 1314 694 BSBW DCLSALLD LOYNMEM ZALLOCATE CONTEXT BLOCK 
0 €8 1317 3695 BLBS ‘Onan 7 OK 
131A 696 STATUS SYMOVF SY mBOL TABLE OVERFLOW 
O2F4 31 1321 369 BRW P1_ERROR SREPORT ERROR 
56 52 DO 1324 3698 25$: MOVL R27R6 SAVE ADRESS OF ALLOCATED BLOCK 
66 : 06 1327 699 MOVL  (R?), (RO) S INSERT INTO LINKED LIST 
67 56 DO 132A 3700 MOVL RG, (R7) 
A6 «651 «=O 132d «3791 MOVL R1,4(R TORE SIZE IN NEWLY ALLOCATED BLOCK 
08 A6 0080 &F 00, oe 00 ¢ 1 108 moves #0: (sp) 0. #FABSC _BLNONAASE CABLNB(RG) HER O REST OF BLOCK 
54 50 AS «(9E 1 704 MOVAB FABS$C_BLNC(RS) ,R4 ‘Sr ADDRESS oF ay: 
1342 3705 ASSUME FABSB-BLN EQ FABSB_BID+ 
65 5003 8F B80 4 106 ROW sr ABSC BI B1D+<FABSC CABLNOB>., FABSB_BID(RS) ; INITIALIZE FAB 
64 6002 8F B0 1347 %3708 MOVW § #NAMSC Bibs <nansc “BLN@B>,NANSE BID(R4) ; INITIALIZE NAM 
28 AS) = 54)—SCO=Os«134C~=«s«3:709 MOVL Ra FABSL POINTER TO NAM BLOCK 
1350 3710 SETBIT FABSV_ PPR PABSL. FOP(RS) :USE PROCESS 1/0. SEGMENT (SINCE THERE 
1355 3711 MAY NOT BE ANY IMAGE 1/0 SEGMENT) 
18 AS OC AC po 135 ar MOVL P2CAp). FABSL ~TX(RS) SSAVE USER SEARCH STREAM IDENTIFIER 
34 A5 04 AC 90 135A 3713 288: MOVE  PIC(AP ASB FN R5)  :STORE PRIMARY NAME STRING INTO FAB 
2c AS 6025E C4) E.s«135F «3714 MOVAB NAMSC gt nec ENARSC “MAXRSS>(R4) ,FABSL_FNACRS) 
0 88 1365 3715 PUSHR #*M<RZ,R5> “SAVE REG ISTERS 
OOFF 8F 00 08 BC 04 aC 2c 7 716 MOVCS P1(AP).@P1+4(AP) ,#0,#NAMSC AMAXASS SF ABSL. FNACRS) 
0 BA 1372 3717 POPR #*M<R4,R5> sRESTORE REGISTERS 
OA AG sOFF OBE 1374 3718 MOVB SNAMSC *RAXRSS NAMSB_ ESS(R4) :SET DESCRIPTOR OF ESA BUFFER 
OC AS «660 AG) OSE =«1379«—-3719 MOVAB C_BLN(R4) -NAMSL~ESA(R4) 
02 AG OFF BF) 0 o90s«137E «3720 MOVB ONAnst MAXRSS ,NAMSB-RSS(R4) iSET DESCRIPTOR OF RESULT BUFFER 
O1SF C4 «= 9E «1383 «3721 MOVAB NAMSC_BLN+NAMSC_MAXRSS(R4),- FOR S$SEARCH (DONE HERE SINCE IT 
AG 1387 37 2 NAMSL ~RSAC(R4) DOESN'T T CHANGE DURING ENTIRE SEQUENCE) 
1 7 SPARSE FAB=(RS SSETUP EXPANDED NAME STR ING, NAM FIELDS 
2250 €9 3 f 4 BLBC  ~— RO, SOS 3 (SUCH AS FID,DID,DVI,ESL) 
1395 3726; 
1395 37 ; : SEARCH CONTEXT BLOCK IS NOW ASSOCIATED WITH THIS STREAM (IT WAS EITHER 
1395 37 8 : FOUND IN THE LIST, OR CREATED). IF THE INPUT FILESPEC HAS CHANGED, 
1395 3729 : THEN START OVER WITH NEW FILESPEC. OTHERWISE, SEARCH FOR THE NEXT 
$3 f 9 : FILESPEC IN SEQUENCE. 
1395 37 : $0$:  SSEARCH FAB=(R5) :SEARCH FOR NEXT FILESPEC 
16 50 £9 1 9F 7 BLBC ‘BRANCH IF ERROR DETECTED 
1 O3 AG GA 13A1 3734 MOVZBL NAMSB RSL (RG), R1 :GET LENGTH OF RESULTANT STR 
04 A4 00 13a5 3735 MOVL NARSL RSA(R4) .R2 ADDR ESS OF RESULTANT ST Rt NG 
08 34.04 08 £0 13A9 3736 BBS #NAMSU_WILDCARD ,NAMSL _ENBERG) 40$ ;1F WILDCARD, LEAVE CONTEXT 


N12 
LEXICON - NCTION PARSE AND EXECUTION R 16-SEP-1984 :36 VAX/VMS Macro v04-00 Pa 
ret GE DCARD FILESPEC att 99: 90: ra YOCL »SRCILEXICON.MAR; 1 - (B, 
Fo ee. 737 mova ss R11, =( SP) SAVE RESULTANT STRING 
7 7 : BSBB Ss DELCTX SDEALLOCATE THE CONTEXT BLOCK 
51 8 7 7 MOVa = (SP)+,R1 SRESTORE RESULTANT STRING 
0 740 40$: RSB 
ree 
743 : AN ERROR HAS BEEN DURING EITHER THE SPARSE OR SSEARCH FUNCTIONS. 
744 : IN ANY CASE, TERMINATE THIS SEARCH SEQUENCE BY REMOVING THE CONTEXT 
745 ; BLOCK FROM M THE LIST. RETURN A NULL STRING. DO NOT REPORT THE ERROR, 
746 : BUT SET THE STATUS. 
6 10 748 Sos: 8588 DELCTX :DEALLOCATE THE CONTEXT BLOCK 
1 D4 74 CLRL oR SRETURN NULL STRING 
52 SE 9 £30 MOVL  SP,R2 : 
0 751 RSB : 
re 
134 i ? DEALLOCATE THE CONTEXT BLOCK 
736 ; = ADDRESS OF FAB : 
257 3 RG = POINTER TO CONTEXT BLOCK 
£38 : 3 R7 = POINTER TO PREVIOUS BLOCK IN LIST 
760 : RO-R3 DESTROYED. 
34 AS 0000228D'EF 90 16¢ BELCTX: MOVB NLAQ, FABSB FNS(RS) , ;SET NULL DEVICE NAME 
2c a5 090022BE "EE 9E 76 MOVAB NLAO+ tae SA FNACR 
aiid 2 Se a a 
766 SETBIT NARSY es NOP(RO) : SET SYNTAX ONLY CHECK 
767 10$:  $PARSE  TERMIN ate SEARCH SEQUENCE 
6? 66 00 768 MOVL (Re SREMOVE FROM LINKED LIST 
0 56 00 769 MOVL = R6,R 'SET ADDRESS OF BLOCK TO DEALLOCATE 
51° 04 A6 20 770 MOVL 4(R6) [SET SIZE OF BLOCK TO DEALLOCATE 
EC11° 30 4A BBW BCL SDEADYNMEN *DEALLOCATE C NEXT BLOCK” 


8.13 
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= LEXICAL FUNCTION PA :00:36 YAX/VMS Macro v04-00 Page 84 
SETICLEAR SPECIFIED PRIVILEGES 46-SEP-1984 4 9% 9: i? foe SRCILEXICON. MAR; 1 . () 
F 72 : .SBTTL SET/CLEAR SPECIFIED PRIVILEGES 
f £76 ; FSSETPRV - SET OR CLEAR THE SPECIFIED LIST OF PRIVILEGES 
135 178 ; THIS yEUNCTION SETS OR CLEARS (DEPENDING ON WHETHER A "NO" IS PREFIXED 
1360 3779 : RIVILEGE KEYWORD SPECIFIED List ,OF PRIVILEGES IN THE PROCESS 
1360 63780: Se RMANEWT PRIVILEGE MASK. ee PREVIOUS STATES OF THE LISTED PRIVILEGES 
13F0 3781 ; ARE RETURNED AS THE VALUE OF THE FUNCTION. NOTE THAT ONLY THE PREVIOUS 
13F0 637 : ; STATES OF THE PRIVILEGES LISTED IN THE ARGUMENT ARE RETURNED, TO AVOID 
: : if ? 3 DEALING WITH STRINGS OF EXCESSIVE LENGTH. 
F f 5: FSSETPRV(PRVSTATES) 
! ; Is ? 3 INPUTS: 
F 789 : P1I(AP) = DESCRIPTOR OF A COMMA SEPARATED LIST OF PRIVILEGE KEYWORDS. 
FO 731 $ OUTPUTS: 
13F0 3793 : R1/R2 = DESCRIPTOR OF COMMA SEPARATED LIST OF KEYWORDS INDICATING 
1 a 794 : THE PREVIOUS STATES OF THESE PR IVILEGES. 
13F 795 :- 
13F0 379 
1350 3797 FSSETPRV: 
56 76 7E 1 FO 798 MOVAQ =(SP),R6 :GET ADDRESS OF SCRATCH QUADWORD 
ECOA' 30 1363 3799 BSBW DCLSMARK [MARK POSITION IN EXPANSION BUFFER 
FG 800 SSETPRV_S PRVPRV=(R6), - ‘GET CURRENT PERMANENT PRIVILEGES 
54 04 AC 7D laos 80¢ MOV = P1(AP) RG GET DESCRIPTOR OF comma SEPARATED LIST 
52 54 7D 1409 3803 108 MOVQ R4&,R2 SASSUME NO COMMA N LIST 
65 54 2C 3A 140C 3804 #°A", "RG, (RS) SLOCATE END OF NEXT KEYW 
04 13 1410 3805 BEQL 20% [BRANCH IF NOT FOUND, USE RONTIRE STRING 
52 54 50 C3 1412 3806 UBL3 RO,R4,R2 SISOLATE NEXT KEYWORD 
54 70 GE 1416 3807 208 MOVAB =(RO), :CHOP KEYWORD OFF STRING 
55° 01A1 99E 1419 3808 MOVAB 1(R1)_R5 
0C BB 141D 3809 PUSHR #*M<R3,R3> SAVE REGISTERS 
00 2260°CF 03 @ 141F 3810 CMPCS «#3 W"NOALL 2,00, R2,(R3) :1S KEYWORD = "ALL"? 
08 13 1427 3811 BEQL ‘BRANCH ; 
00 225€°CF 05 2D 1429 Big CMPCS #5 .W*NOA L, #0.R2,(R3)  :1S KEYWORD = "'NOALL''? 
OC BA 1431 81 22$:  POPR #M<R2,R SRESTORE REGISTERS 
OF 12 14 3 14 BNEQ 30% ‘BRANCH IF NOT 
51 4 O14 815 CLRL sR [START WITH PRIVILEGE #0 
008 30 1437 16 25$ BSBW ADD_PRIV_STATE SAPPEND PRIVILEGE KEYWORD TO STRING 
F551 00000040 ar Fe 143A OBLSS r 47R1,258 [FOR EACH PRIVILEGE IN MASK 
7E 52 7D 1444 319 30$: MOVQ  R2,-(SP) :PUSH DESCRIPTOR OF KEYWORD 
DF 1447 3820 PUSHAL =(§P) SADDRESS OF LONGWORD TO RECEIVE BIT # 
08 AE 9F 1449 1 PUSHAB 8(SP) [SET ADDRESS OF KEYWORD 
00000000'GF 02 FB 144 ; CALLS #2,G°PRVSPRIVBIT [LOOKUP KEYWORD 
BA 145 POPR #*M<R1,R2,R3> SAND GET PRIVILEGE BIT NUMBER IN R1 
11 9 145 4 BLBC =OoiR [BRANCH IF ERROR DETECTE 
6¢ 0 1458 5 BSBB ADO _PRIV_STATE [APPEND PRIVILEGE KEYWORD TO STRING 
7E 7D 145A 6 40$ MOVQ  =-R2, =( SP) [PUSH DESCRIPTOR OF KEYWOR 
D 1450 PUS [SET ADDRESS OF PRIVILEGE MASK 
04 AE OF «(145F g PUSHAB 4(SP) [SET ADDRESS OF KEYWORD 
00000000 ' GF 04 FB 1462 CALLS 342 G*PRVSSETPRIV TENABLE/DISABLE SPECIFIED PRIVILEGE 
38 50 £9 146 051$: LBC  R0,568 [BRANCH IF ERROR DETECTED 


¢ 13 
ICAL FUNCTION PAR E AND EXECUTION R 16-SE Ep- 1984 99:00:36 YAX/vits Macro v04-00 Page §5 | 
LEAR SPECIFIED P foittee 4=SEP=1984 23:41: DCL.SRCILEXICON.MAR; 1 (34) | 
: | 
1 1 TSTL RG sANY MORE KEYWORDS? 
1 : BGTR 108 :1F $0, LOOP UNTIL DONE 
1 MNEGL #1,-(SP) i CREATE PRIVILEG ASK WITH ALL 
1 4 MNEGL #1.=(SP) [THE PRIVILEGE BITS SET 
1 5 MOVL  _$P,R GET ADDRESS OF IT 
1 : SSETPRV_S PRVADR=(R2),- ;DISABLE ALL PRIVILEGES | 
1 PRMFLG=41,- ; 
1 8 ENBFLG=#0 : 
1 SSETPRV_S PRVADR=(R6) ,~ TENABLE NEW PRIVILEGES 
1 40 PRMFLG=#1,< : 
1 41 NOFLG=#I ; 
SE ¢0 1 4¢ ADDL SP ;CLEANUP STACK 
£B63" 1 4 BSBW DCL EMARKEDT TOKEN ET DESCRIPTOR OF STRING 
F486 CA F48A CA DO 1 44 MOVL  WRK_L_MARKPTR(R10) ,WRK_L “EXPANDPTR(R10) RESTORE POSITION IN EXPANS] | 
51 07 1 45 DECL =i [D0 NOT RETURN TRAILING COMM 
05 46 RSB 
50 00000000°8F 01 1 48 50$ CMPL § #PRVS_NOTUNQ,RO ;AMBIGUOUS KEYWORD? 
09 12 1 84 BNEO 5$ :I1F NOT, EXIT WITH INVALID KEYWORD 
1 850 STATUS ABKEYW 'SET AMBIGUOUS KEYWORD ERROR 
we ww 1 851 BRB 0$ 
1 83¢ 558: STATUS IVKEYW rSET INVALID KEYWORD 
SE 08 co 1 853 B0$: ADDL 8,SP ; CLEANUP STA 
0152 311 854 BRW P1 ERROR SREPORT ERROR 
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-SBTTL APPEND PRIVILEGE STATE TO STRING 
ADD_PRIV_STATE = APPEND PRIVILEGE STATE (IN KEYWORD FORM) TO STRING. 


THIS ROUTINE APPENDS THE PRIVILEGE a Me asa Lares WITH A sg 
PRIVILEGE a AND MASK TO ie CURRENT STRING he Ba SSEMBLED 


oa 
<~" 
(Ties 


AANA A AAAAWAAAAAAGINAAAA.A AAA A AAA AAA AIA AAAA AAAI 


Sz 


EXPANSION BUFFER. IF THE PRIVILEGE BIT NUMBER DOES NOT CORRES POND 
TO A KEYWORD, NOTHING IS APPENDED TO THE STRING AND NO ERROR IS RETURNED. 
INPUTS: 
R1 = PRIVILEGE BIT NUMBER 
R6 = ADDRESS OF PRIVILEGE MASK 
OUTPUTS: 


gat (NEGATED IF THE PRIVILEGE IS OFF) IS APPENDED TO THE 


RO DESTROYED. 


ADD_PRIV_STATE: 
PUSHL R1 


ee ee ee ee ee a a ee ee ee a ee ed a ad ad ed aed OO 
PUPP BS BS BP BB EPP PPP PEPE PPP PPP PPP PPP LE EE 
WR HMMMMM OO OS FOOOOOOOAOOOOAAOAQOAAOAAAOOAOOO 
© 00009 09 C0 09 00 Gd Go Cd GD OD 09 0D 09 CD C0 G0 Cd Cd Cd Cd CD Cd Cd Cd CD CO CO CO COCO COCO CO CDCDCDODCDODCOCDCDCD ff 
SOOO OO0O0 OOOO 0000 09 0909 69 09 69 09 09 09 SI NINN SIN SNIP AAA AAOAAAAMUMINI «ETE 
NR OODNA NEW 9 OD NAUE WN  O ODNOAUM EWN $9 ODNOU ES WH" OOOno o- 
‘ 
i 
a 


DD ZSAVE PRIVILEGE BIT NUMBE 

DD PUSHL WRK_L_EXPANDPTR(R10) | :SAVE CURRENT POSITION I 

£0 BBS 1, TRB) , 30$ ‘BRANCH IF PRIVILEGE WAS PREVIOUSLY SET 
9A MOVZBL #*A'N',RO SINSERT AN "'N’’ INTO THE BUFFER 

30 BSBW DCL SPUTCHAR nee 

9A MOVZBL RO :INSERT AN “O"' INTO THE BUFFER 

30 BSBW DCL SP PUTCHA 

Dp 30$: PUSHL WRK_L EXPANDPTR(R10) ;CREATE DESCRIPTOR OF EXPANSION BUFFER 
C SUBL3 (SPY, QRK_L_CHARPTR(R10), =(SP ) SCRATCH AR EA LEFT 

DD PUSHL SP ZADOR Regs OF WORD TO GET RETLEN 

OF PUSHAB 4(SP) : ‘ADDRESS OF BUFFER DESCRIPTOR 

DD PUSHL Ri [SET PRIVILEGE BIT NUMBER 

FB CALL G*PRYSKEYWORD :GET KEYWORD ASSOCIATED WITH BIT NUMBER 
C1 ADDL (36s (SP)+,R1 [POINT TO STRIN NG END+1 

9 BLBC 5o$ iF NO SUCH P RIVILEGE . APPEND NOTHING 
CO ADDL He 4 THROW A AVED EXPANSION POINTER 

DO VL_—s«R1,WRK_L_EXPANDPTR(R10) : INSERT WNTO® EXPANSION BUFFER 

9A MOVZBL #*A','=R :INSERT AN '',”’ INTO THE BUFFER 

30 BSBW DCLSPUTCHAR 

DO 90$:  POPL RI ;RESTORE PRIVILEGE BIT NUMBER 

05 RSB 

DO 50$:  POPL §WRK_L_EXPANDPTR(R10) BACKUP POSITION IN BUFFER 

11 BRB 90$ AND EXIT WITHOUT APPENDING ANYTHING 


| 
| 
| 
ON IN BUFFER 
| 
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ASCII STRING gnsEb~ 19s 99:09:26 acro V04-00 


el .SBTTL CONVERT EXPRESSION TO ASCII STRING 
: FSSTRING = CONVERT TO ASCII STRING 


; THIS FUNCTION CONVERTS ANY EXPRESSION INTO AN ASCII STRING. IF THE 

; EXPRESSION IS A BINARY VALUE, IT IS CONVERTED INTO DECIMAL ASCII. 
FSSTRING(EXPRESSION) 

INPUTS 

P1(AP) = EXPRESSION VALUE 

: OUTPUTS: 
R1/R2 = DESCRIPTOR OF VALUE STRING 

SSTRING: 
MOV = P1(AP),R1 :GET EXPRESSION VALUE 
JSB DCLSCVT_STRING [CONVERT TO ASCII STRING 
BLBC RO,90$ SBRANCH IF ERROR DETECTED 


90$: BRW P1_ERROR ;REPORT ERROR AND DISPLAY P1 


DCL.SRCILEXICON.MAR; 1 
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LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 VAX/VMS Macr 04-00 Pa 
riety RETURN CURRENT TIME AND DATE ra ets Ta ek Bs Ma has Pare th eet oe 8, 
7 ; .SBTTL RETURN CURRENT TIME AND DATE | 
; ; FSTIME = RETURN CURRENT TIME AND DATE | 
1527 39 ? THIS LEXICAL FUNCTION OBTAINS THE CURRENT TIME AND DATE AND RETURNS A STRING 
f 3 ; DESCRIPTOR FOR IT 
1507 39 FSTIME() 
185) $938 ¢ INPUTS 
185) $920: ite 
1527 3941 : : 
f 942 : OUTPUTS: 
1527 Rl = LENGTH OF TIME AND DATE STRING. 
13 , R2 = ADDRESS OF TIME AND DATE STRING. 
13 7 394 
1527 3948 FSTIME: :RETURN TIME AND DATE 
7E 52 7D 1527 394 MOV [BUILD TIME BUFFER DESCRIPTOR 
6— 17 D1 152a 3950 #25, [TIME BUFFER LARGE ENOUGH? 
19 1A 1520 3951 5 SIF GTRU NO 
50 SE DO 152F 95¢ SP,R SET ADDRESS OF TIME BUFFER DESCRIPTOR 
1532 395 SASCTIM_S (RO), (RO) :GET CURRENT 
51 ge 7D 1541 3954 (SP)+,R1 SRETRIEVE vIMe BUFFER PARAMETERS 
04 9 1544 3955 BLBC ~=E_—«aRO, 60 [IF LBC CONVERSION FAILURE 
> 1808 3989 - ; 
00c1 31 1548 3958508:  BRW BUF OVF ;REPORT BUFFER OVERFLOW 
00¢5 31 1548 3959 60$:  BRW ERROR [REPORT SYSTEM SERVICE ERROR 
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EXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00: AX/VMS Macro V04- 
} SYMBOL WYRE a ae 4 99:90:76 DCL. SRCILEXICON.MAR; 1 
4 : ’ ~SBTTL GET SYMBOL TYPE 
4 ; FSTYPE = GET SYMBOL TYPE 
154€ 3965 ; THIS FUNCTION RETURNS NULL, "INTEGER'', OR “STRING'’ CHARACTER STRINGS 
154E 3966 ; DEPENDING ON WHETHER THE SPECIFIED SYMBOL IS UNDEFINED, EQUATED TO A 
| i 3 NUMERIC STRING OR AN INTEGER, OR EQUATED TO A NON-NUMERIC STRING. 
4 369 FSTYPE (SYMBOL) 
154€ 3971 : INPUTS: 
1 rt 972; 
154—€ 3973 : P1(AP) = DESCRIPTOR OF SYMBOL NAME 
154— 397% ;: 
4e 979 : OUTPUTS: 
se $7 : R1/R2 = DESCRIPTOR OF ASCII STRING DESCRIBING THE SYMBOL TYPE 
154€ 338 
154— 3980 FSTYPE: 
7E 52 7D 1546 3981 MOVQ = R2, = (SP) ZSAVE BUFFER DESCRIPTOR 
51 06 ac 7D 1 3 9 é MOVQ PICAP),RI :GET DESCRIPTOR OF SYMBOL NAME 
EAAB' 30 1 9 BSBW DCLSSEARCH [FIND SYMBOL IN SYMBOL TABLE 
3650 €9 1558 3984 BLBC ~=—_-«RO,, 208 ; T FOUND, RETURN NULL 
32 dS 1 38 985 TSTL OR [STRING DESCRIPT 
: 13 1550 «39 6 BEQL 108 [NO, THEN BRANCH 
1 05 155F 39 TSTL = RV. [NULL STRING? 
1@ «(13 «1 61 988 BEQL «=sSSS [YES, THEN BRANCH 
6— 51 01 136 989 CMPL R1,(SP) ‘BUFFER LARGE ENOUGH? 
D 11 66 990 BcTRU 90% :1F GTRU NO 
1 00 136 991 MOVL. R1,(SP) :COPY SYMBOL LENGTH 
06 BE 6 1 é 1 996 MOVES R1.(R2),@4(S°) :COPY THE SYMBOL VALUE 
3 6— 7D 15 99 mMOVG (SP),R :MOVE THE DESCRIPTOR INTO R2/R3 
1 oi p 1573 3994 MOVL #PRC’K DEC,R1 [SET CONVERSION RADIX 
EA87" 1 ds 995 BSBW DCLSCNUASCBIN [CONVERT THE STRING TO DECIMAL 
Oc 13 «157 99% BEQL =-:108 SIF SUCCESSFUL, THEN INTEGER 
52 0000226€ F 96 1 997 5$: MOVAS STRING,R2 [IF NOT, THEN RETURN ‘STRING’ 
1 82 OW 1 998 MOVZBL (Re)+ Ri ; 
Bee is BRB 20 : 
S52 00002275°EF 9E 1 4000 10$:  MOVAB  INTEGER,R2 SRETURN ‘INTEGER’ 
1 9A 1 gf 4001 MOVZBL (R2)+,R1 ; 
E c9 1 4 : 208 ADDL = #8, SRESTORE THE STACK 
34 4 ; RSB 
SE 08 60 1398 4005 90$ ADDL  #8,SP SRESTORE THE STACK 
0071 1 1598 4006 BRW Buf Ove SREPORT BUFFER OVERFLOW 
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us 
! 98 4 : -SBTTL RETURN USER IDENTIFICATION CODE 
3B é 3 FSUSER = RETURN USER IDENTIFICATION CODE 
1 3B 4012 : THIS LEXICAL FUNCTION FUNCTION CONVERTS THE USER IDENTIFICATION CODE TO AN 
38 4 13 3 ASCII STRING AND RETURNS A DESCRIPTOR FOR IT. | 
‘ 4 15 : FSUSER() 
1 4 i$ + INPUTS: 
i 3B ¢ i ; NONE | 
1598 4020 : : 
} 30 : : OUTPUTS: 
1598 4 : : R1 = LENGTH OF USER IDENTIFICATION CODE. | 
1 38 é $ ; R2 = ADDRESS OF USER IDENTIFICATION CODE. | 
1598 4026 ° 
1598 4 § FSUSER: i RETURN USER IDENTIFICATION CODE 
7E 7C 1598 & : CLRQ = = SP) SRESERV | 
7E 7C 1590 4 CLRQ = = (SP) ‘CLEAR AbAS! ITEM AND LENGTH ADDRESS | 
FB AE OF 159F 4030 PUSHAB -8(SP) [PUSH ADDRESS TO STORE USER | IDENTIFICATION 
030400046 8F DD 1 Ag 4031 PUSHL #JPI$_UICa16+4 SET PA RAMETER ID AND LEN NGTH 
50 SE DO 15A8 4 ; MOVL _SP,RO™ [SET ADDRESS OF vine List 
AB 4 : SGETUPIU S: ITMLST=(RO), - :GET USER IDENTIFICATION CODE 
=1 : 
1 AB 4035 EF N=#EXESC SERN : | 
11 50 £9 15¢3 40 : BLBC =—_«aRO, 20 TIF LBC SERVICE FAILURE 
50 10 Ar ¢ 15€6 40 MOVZWL 1elsp). RO [GET STATUS FROM I0SB 
0A 50 «£9 «#(15CA 40 8 BLBC —iséaR Z1F LBC SERVICE FAILURE 
54 b 150D 4 MOVL tthe R4 3 Tu 
00 ¢ 1300 4040 BSBW FORMAT UIC SFORMAT THE UIC 
SE ¢ 1356 ibes ADDL #6%4,SP REMOVE ITEM” LIST AND 10SB FROM STACK 
1507 404 . 
SE 18 CO 15D7 4044 20$: ADDL #6*4,SP ;REMOVE ITEM LIST AND IOSB FROM STACK 
37, 11 «15DA «4045 BRB ERROR : 


1.13 
RETURN VERIFY RODE AND EMECUTION R TenSeE~19Bc Oosetsat EpcLesAciLEKiCONcmaRs? = #8" (2), 


| 
| 
pe 4 47 ; .SBTTL RETURN VERIFY MODE | 
DC 4 § t FSVERIFY = RETURN VERIFY MODE | 
DC 4 H : THIS LEXICAL FUNCTION RETURNS A BOOLEAN VARIABLE THAT DESCRIBES THE CURRENT 
DC 4052 ; STATE OF THE VERIFY MODE AND, IN ADDITION, WILL SET OR CLEAR VERIFICATION 
be 4 33 IF A NON-NULL ARGUMENT IS SPECIFIED. | 
De 4 5: FSVERIFY(CNEW_VERIFY_MODE C, NEW_IMAGE_VERIFY_MODEJJ) | 
DC 4 ‘ : INPUTS | 
DC 4 § : P1(AP) = OPTIONAL NEW VERIFY MODE (1 TO SET, 0 TO CLEAR) 
DC 4060 ; (=1_ TF UNSPECIFIED) | 
DC 4061 : P2(AP) = OPTIONAL NEW IMAGE VERIFY MODE (1 TO SET, 0 TO CLEAR) 
+) 2 § 3 (-1 IF UNSPECIFIED) 
be 4 64 : OUTPUTS: 
DC 4 66 : R1 = BOOLEAN RESULT 
DC 4067 : R2 = 0 TO INDICATE RESULT IS BINARY 
Be 88h 
DC 4079 FSVERIFY: ZRETURN VERIFY MODE 
DC 4071 MOVL #1,R8 “ASSUME VERIFY IS CURRENTLY ON 
DF 407¢ BBS #PRC_V_VERIFY,PRC_W_FLAGS(R11),10$ ;BR IF ON 
E4 407 CLRL SMARK VERIFY TURNED OFF 
Eg 4074 10$:  TSTL PICAP) ZA NON@NULL ARGUMENT? 
£9 4075 BLSS :NOPE, IT'S NULL, NO CHANGES 
4076 CLRBIT PRC_V VERIFY .PRC_W_FLAGS(RI1) :TURN OFF VERIFICATION 
FO 407 BLBC 1(KPY, 20$ -LEAVE VERIFY OFF IF LBC 
FG 4078 SETBIT PRC_V_VERIFY,PRC_W_FLAGS(R11) ;ELSE TURN ON VERIFICATION 
9 407 20$: MOVL P2 (APT .R6 : NULL ARGUMENT? 
FD 4080 BGEG  30$ ; - 
FF 4081 MOVL  P1(AP),R6 TELSE USE FIRST ARGUMENT 
03 4 : 30$:  BSBW  DCLSSETVERIFY_IMAGE [SET IMAGE VERIFICATION 
06 4083 90$: MOVL  R8,R1 [RETURN BOOLEAN RESULT 
09 4084 CLRL = RR SINDICATE RESULT IS BINARY 
0B 4085 RSB : 


aa 
33 
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AL 
i ¢ 4 7 -SBTTL ERROR RETURNS 
160€ 4089 ; | 
160C 4 : BUFFER OVERFLOW 
1808 6092 | 
1 4093 BUFOVF: STATUS BUFOVF :SET BUFFER OVERFLOW STATUS | 

SEAS 30 1 5 4094 ERROR: BSBW DCLSMARK [SET FOR NO SEGMENT DISPLAY 
9 11 1616 4095 BR DCLSPARSERR 
1818 6099 | 
161 4 38 $ SIGNAL ERROR WITH AN ARGUMENT AS THE ERROR SEGMENT 
1618 4100 © 
1618 4101 P1_ERROR: 
52 04 AC 9E 161 ie MOVAB P1(AP),R2 SUSE P1 AS ERROR SEGMENT 
re Tere EIEE wzemnonthe PHAERn 
52 OC AC 9 1616 4103 . MOVAB P2(AP),R2 SUSE P2 AS ERROR SEGMENT 
16 «(117 16 é cige - erroner® PN_ERROR 
52 14 AC 9E 1606 4108 ~ MOVAB P3(AP),R2 SUSE P3 AS ERROR SEGMENT 
pa | Lee aren 
52 1C AC 9E 162A 4111 7 MOVAB P4& (AP) ,R2 SUSE P4 AS ERROR SEGMENT 
OA 11 16 aie - errone”e PN_ERROR 
52 26 aC 9E 1630 4114 7 MOVAB PS(AP),R2 SUSE PS AS ERROR SEGMENT 
11 1634 4119 a errore®® PN_ERROR 
52 2C AC 9 its i 2 MOVAB P6(AP),R2 SUSE P6 AS ERROR SEGMENT 
163A 4119 PN_ERROR: 
51 D4 163A a Se. CLRL RI PRESET 10 RETURN NULL STRING 
OF FO AA OC £0 163C 4121 BBS #WRK_V_COMMENT,WRK_W FLAGS (RI ),30$ ;RETURN NULL IF IN COMMENT 
F4BA CA 046 Ag DO 1641 41 : MOVL.  4(R2T,QRK_L_MARKPTR(R10) ;SET START OF ERROR SEGMENT 
F486 CA 04 A2 62 C1 1647 41 ADDL3 (R2),4(R2),QRK_L_EXPANDPTR(R10) ;SET END OF ERROR SEGMENT 
01 «11 1646 4126 BRB DCLSPARSERR sREPORT ERROR 
05 1656 41 30$:  RSB SRETURN WITH FUNCTION=NULL/ZERO 
1651 4127; 
1651 41 2 ; ERROR EXIT FROM LEXICAL FUNCTION STRING EXPANSION 
1651 4130 ° 
1831 41 ? DCLSPARSERR: : ; 
EAC 30 1651 41 2 BSBW DCLSERRORMSG SOUTPUT ERROR MESSAGE 
50 DD 1654 41 PUSHL [SAVE FINAL STATUS 
00000000°EF 16 1656 4134 JSB ss DCLSFLUSH ZFLUSH COMMAND | 
0 8ED0 165C 4135 POPL TRETRIEVE FINAL STATUS 
00000000 EF 1g 165F 41 : JSB DCLS$SET_STATUS [SET COMMAND STATUS | 
00000000'EF 17 1665 41 MP DCLSRESTART : | 
| 
| 
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«SBTTL CONVERT UIC TO ASCII STRING 
* FORMAT _UIC - CONVERT BINARY UIC TO ASCII STRING 
CONVERTS A BINARY UIC LONGWORD INTO AN ASCII STRING 


R4 = UIC LONGWORD 
; OUTPUTS: 
R1/R2 = DESCRIPTOR OF ASCII STRING 


ee tenet emtiiaiee ea 
a 


IC: eASCIC "IRI" 


Sessesesescs 


NNAAAAAOASAOOCOMIVIVA VUIMUIUIUE SELLS SS SW CO 


OOWONAMEWN"OOCONG NEW -"OOONOULS UT" 00 


49 25 21 60" 


a tt te td a 2 8 8 a ns ht a ts 


66F 
66F FORMAT_UIC 
51 FO AF 9€ 66f AB :GET ADDRESS OF ASCIC FAO STRING 
0 gi 9A 1673 MOVZBL RIS, RO [CREATE DESCRIPTOR OF FAO STRING 
0 7 676 mova (§P) [PUSH ONTO STACK 
CA DD 167 PUSH URK_L *EXPANDPTR(R10) SCREATE DESCRIPTOR OF SCRATCH BUFFER 
F486 CA C3 167D SUBL WRK -t “EXPANDPTR(R10),-_ ; 
7E FF 4BE cA 681 TCHARPTR(R10) ,=(SP) ; 
50 SE 00 1685 MOVL Ht 
688 $FAO_S Hitteeaoy - SFORMAT INTO Ascii STRING 
688 OUTBUF =(RO) ,- SADDRESS OF RESULT BUFFER 
688 OUTLEN=(RO).- :WORD TO RECEIVE RESULT LENGTH 
be PI=R4 3U NUMBER 
1E BA 1698 POPR #*M<R1,R2,R3,R4> :GET DESCRIPTOR OF STRING 
69A D CLEAN STACK 
05 169A RSB 
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LEXI = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP-1984 00:00:36 YAX/VMS Macro V04-00 Page 94 | 
rivet CONVERT BROTECTION MASK TO ASCII STRING gr ser =13 4 99:00:36 YOCL SRCILEXTCON- MARS 1 ” (43) | 
98 athe p .SBTTL CONVERT PROTECTION MASK TO ASCII STRING | 
98 aifg : FORMAT_PROT = CONVERT BINARY PROTECTION MASK TO ASCII STRING 
1698 417 > CONVERTS A BINARY PROTECTION MASK WORD INTO AN ASCII STRING 
1698 si : INPUTS: 
1698 4181 : R4 = PROTECTION WORD 
1698 41 : ; R10 = BASE ADDRESS OF COMMAND WORK AREA 
1698 41 4 : OUTPUTS: 
1698 41 $ ; R1/R2 = DESCRIPTOR OF ASCII STRING 
1698 41 : : REGISTER USAGE: 
1698 4190 : RO,R1,R2,R3,R7,RB 
1898 4192 ° 
00 1698 1198 NULL: .BYTE 0 
3D 00° 169¢ 4194 EQUAL: <ASCIC /=/ 
44 45 57 33 She 4195 ACCESS: | - ASCII /RWED/ 
44 41 21 43 41 21 4D 45 54 53 59 53 16A t199 SASCII /SYSTEM!AC!AD, OWNER!AC!AD, GROUP!AC!AD, WORLD!AC!AD/ 
41 21 43 41 21 g 45 4E 57 4F 20 2C 16AE 
21 43 41 21 50 55 4F 52 47 20 2C 44 16BA 
43 41 21 44 4C 52 4F 57 20 ec 44 41 16¢6 
1805 4198 PROTECTEND: 
16D5 4200 FORMAT_PROT: 
53 SE DO 1605 4201 MOVL  SP,R3 sSTART A SCRATCH AREA ON THE STACK 
SE 30 «= C2s«16DB C4 08 SUBL  #4*12,SP SALLOCATE FAO ARGUMENT DESCRIPTORS 
1608 4 03 ZAND ASCIC ADDRESS DESCRIPTORS 
58 OC 9A 16DB 4205 MOVZBL #12,R8 sSET OUTER LOOP INDEX 
3 4 16DE 4 06 10$:  CLRL (SP) SALLOCATE SPACE FOR FAO ARG BUFFER 
7 C 1660 420 CLRQ = = (R3) [ZERO FAO ARG DESCRIPTOR 
73 BO AF 9E 16€2 4208 MOVAB NULL,-(R3) [INIT ASCIC POINTER, ASSUME NO ACCESS 
51 54 04 38 EF 1666 4 09 EXTZV R804 RG RI SEXTRACT ONE PROTECTION FIELD 
35 OF 0g 16EE 4211 BITL #*XF,R2 TALL ACCESS DENIED? 
. 7 16 4 1 BEQL TIF EQL, YES 
63 AG AF GE 1 FS 421 MOVAB EQUAL, (R3) :SET POINTER TO ASCIC = 
57 D4 16F7 4214 CLRL sR? *CLEAR INNER LOOP INDEX 
08 A3 cE E 16F9 4215 MOVAB (SP),8(R3) ‘PUT ADDR OF BUFFER IN DESCRIPTOR 
04 a3 D4 1968 4 16 CLRL = & (R35 [CLEAR BUFFER LENGTH 
0A 51 57? €0 179 4218 208 BBS R7,R1, 30$ sIF SET, ACCESS DENIED 
04 B34E 96 AF47 3 1704 4 8 MOVB ACEESSER?I 4 (RS)CSPI [MOVE ACCESS CHARACTER I 
D 1708 4 0 INCL  4(R3) SINCREMENT BUFFER LENGTH 
EE 57 O04 F 17 4 30$:  AOBLSS #4,R7,208 [CHECKED ALL FOUR BITS? 
FFCS 58 «OFC BF O00 171 4 § 40$:  ACBB #0,#-4,R8,10$ SCHECKED ALL FOUR MODES? 


NTO BUFFER 


————__-—_—-—-} 


at: 
x = LEXICAL FUNCTION PARSE AND EXECUTION R 16-SEP=1 :006:36 VAX/VMS Macro Vv04-00 Page 95 
riety CONVERT BROTECTION MASK TO ASCII STRING 4=SEP-19 1384 99: or:2¢ LOCL SRCICEXTCON MARS 1 (43) 
BG af oF 1719 4 5 PUSHAB PROTECTSG <n aeeaed ZPUSH DESCRIPTOR FOR CONTROL STRING 
F486 CA OOD 15} 4 5 PUSHL WRK : EXPAND (ROD ,7PUSH DESCRIPTOR TO RECEIVE FAO OUTPUT 
37 -DD 17 5 4 8 PUSHL #PROTEC FENN OPROTECTNSGS 
50 5—& 00 1726 4 RO * SAVE POINTER TO TOP OF STACK 
1727 4230 SFAOL_S SPR aon. ‘GENERATE FORMATTED ASCII STRING 
1707? 4031 UTBUF=(RO) ,- 
1707 4 : OUTLEN=(RO).= 
7 f 4 3 PRMLST=(R3) 
51 6€ 7D 1737 4235 MOVa = (SP). R1 ZMOVE OUTPUT DESCRIPTOR INTO R1/R2 
SE 00000050 8F £0 173A 4 36 ADDL #20*4,SP TRESTORE STACK 
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CTION PARSE AND EXECUTION R Tp-SeP-19 :00:36 VAX/VMS Ma 
ID TO ASCII STRING -SEP- =|38% 99:00:36 f 
39 a .SBTTL CONVERT FILE ID TO ASCII STRING 
i ; FORMAT_FILEID = CONVERT FILE ID TO ASCII STRING 
43 : INPUTS: 
43 ; R4 = ADDRESS OF 3-WORD FILE ID 
éf : OUTPUTS: 
fi ; R1/R2 = DESCRIPTOR OF ASCII STRING 
52 FILEID: .ASCIC ‘(!UW,!UW,!UB)" 
53 
54 FORMAT_FILEID: 
55 MOVAB FILEID,R1 :GET ADDR 
36 MOVZBL (R1)+,R0 SCREATE D 
5 MOVa —RO, - (§P) ‘PUSH ON 
58 PUSHL WRK_L_EXPANDPTR(R10) — :CREATE D 
59 SUBL3 WRK boeX ANDPTR(R10) ,WRK_L_CHARPT 
60 MOVL = SP,R 
61 SFAO_S CTRSTR=8(RO),- zFORMAT I 
6¢ OUTBUF =( 
6 UTLEN=( 
64 R 
65 (R4S 
66 (R4) 
67 R1,R 
68 
69 
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DCL.SRCILEXI 


CON.MAR; 1 (44) 


a OF FAO STRING 
PTOR sb) SCRATCH BUFFER 


0 peclt {| srpiee 
+ ive RESULT LENGTH 
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5663 GETS were required to define 63 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:LEXICON/OBJ=OBJ$:LEXICON MSRC$:LEX]CON/UPDATE=(ENHS:LEXICON) +EXECMLS$/LIB+LIB$:DCL/LIB+SYSSLIBRARY : SYSBLOMLB/LIB 


| 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( -) 0O ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC ¢ -) O01 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DCLSZDATA a st Tas ( eee ) § ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
DCLSZCODE 00001797 ( 6039.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
pene enes Ses eens eonom men woos + 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
pnittol tzetton , 43 00:00: 00-68 00:00:01 87 
omm rocessin :00:00. :00:07. 
Poss 1” . 230 00: 1:36:74 b:05:97.39 
Symbol table sort 0 88:88: 35 88008 Oy 
Pass 2 776 00:00:25.46 0:01:17. § 
Symbol table output 0 00:00: 8-25 B00: 05-2 
Psect synopsis output 3 B88 88-8 0:00:00.33 
Cross-reference output 00: 8708-09 0:00:00.00 
Assembler run totals 3191 00:02:27.09 0:07:15.79 
The vorking set Limit was 3750 pages. 
632877 bytes (1237 pages) of virtual memory were used to buffer the intermediate sete. 
There were 120 pages of symbol table space allocated to hold 2005 non-local and 328 local symbols. 
4291 source Lines were read in Pass 1, producing 78 object records in Pass 2. 
242 pages of virtual memory were used to define 89 macros. 
ueenmmnmnnnennnt 
; Macro Library statistics ; 
Macro Library name Macros defined 
~$233$DUA28:(SYSL1B]SYSBLDMLB-MLB; 1 7 
-8255$DUA28: LDOCL .OBJJDCL.MLB; 1 13 
~$255$DUA : SYS.OBJJLIB.MLB;1 2 
$255S$DUA28:(SYSLIBJSTARLET.MLB; 2 41 | 
TOTALS ‘all Libraries) 63 | 


AH-BTi3A-SE DIGI 
VAX/VMS V4.0 CONF 


T CORPORATION 
_PROPRIETARY 


m071 


